Syntax: Objekt.SelectedTab = 1 [Single]
Dim ax As VistaStyleTabControl Set ax = Me!AX_Tab.Object With ax MsgBox "Der Aktive Tab ist: " & .SelectedTab ,vbInformation .SelectedTab = .SelectedTab + 1 End With Set ax = Nothing