タブ

ページ切り替え風

Private Sub オプショングループ_Click()

　　Me.Ltab.Value = Me.オプショングループ
　　Me.Dtab.Value = Me.オプショングループ
 
End Sub

セットフォーカス

Me.タブ.Pages("AAA).SetFocus