'Hallo jensnrw
'Hier ein kleines Beispiel wie Du die Tab - Taste auswerten kannst.
'In der Entwicklungsumgebung mußt Du KeyPreview der Form auf True setzen.
'NG.:04.03.03.do.
Private Declare Function GetAsyncKeyState Lib "user32" _
                                    (ByVal vKey As Long) _
                                    As Integer
 
Private Const VK_TAB = &H9
 
Private Function GetKeyPressEvent() As Boolean
    If GetAsyncKeyState(VK_TAB) = -32768 Then
        GetKeyPressEvent = True
    Else
        GetKeyPressEvent = False
    End If
End Function
 
Private Sub Command1_Click()
    Unload Me
End Sub
 
Private Sub Text1_GotFocus()
    MsgBox "Text1 hat den Focus..."
End Sub
 
Private Sub Text2_GotFocus()
    MsgBox "Text2 hat den Focus..."
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'Nur zum Test... Test VK_TAB
    Dim mColor As Long
 
    Call GetKeyPressEvent
 
    If GetKeyPressEvent Then
        Randomize
        Me.Caption = GetKeyPressEvent
        mColor = Int(Rnd * QBColor(15))
        Me.BackColor = mColor
    Else
        Me.Caption = GetKeyPressEvent
        Me.BackColor = vbButtonFace
    End If
End Sub
'MfG
'Frank