This will work better :-)

Private Sub MultiPage1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)

If Shift = 2 And KeyCode = vbKeyLeft Then
If MultiPage1.Value = 0 Then
Exit Sub
Else
MultiPage1.Value = 0
End If
End If

If Shift = 2 And KeyCode = vbKeyRight Then
If MultiPage1.Value = 1 Then
Exit Sub
Else
MultiPage1.Value = 1
End If
End If

End Sub


RBS


"Gustaf" wrote in message
...
I got a form with a MultiPage control, and haven't been able to find a way
to change tabs without using the mouse. I'd like to use some key
combination, perhaps Ctrl + vbKeyLeft or vbKeyRight. Ideally the key
command should work no matter what control has focus. How does all that
sound in terms of usability and best practices?

The immediate problem now is that the code I wrote won't trigger switching
the tabs. There are 2 tabs:

' Allow shifting tabs with arrow keys
Private Sub MultiPage1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)

If Shift = 2 And KeyCode = vbKeyLeft Then
If MultiPage1.Value = 1 Then
Exit Sub
Else
MultiPage1.Value = 0
End If
End If
If Shift = 2 And KeyCode = vbKeyRight Then
If MultiPage1.Value = 0 Then
Exit Sub
Else
MultiPage1.Value = 1
End If
End If

End Sub

Hope someone can spot the error here.

Gustaf