Private m_boSpacePressed As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
  Select Case KeyCode
 
    Case vbKeySpace
      m_boSpacePressed = True
      Caption = "No-Hit"
 
    Case vbKey1
      If m_boSpacePressed Then
        Caption = "Hit"
      End If
 
  End Select
 
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
 
  If m_boSpacePressed And (KeyCode = vbKeySpace) Then
    m_boSpacePressed = False
  End If
 
End Sub
 
Private Sub Form_Load()
  Caption = "No-Hit"
 
End Sub

Gruß
Dirk

--
?Get it right the first time