Zitat:

und beim doppelklick oder beim drücken auf "Enter", sollte Form2 erscheinen (hier) mit:

Private Sub Form_KeyPress(KeyAscii As Integer)
  ' Entertaste wurde gedrückt
  If KeyAscii = 13 Then
    Form2_oeffnen
  End If
End Sub
 
Private Sub Form_DblClick()
  ' Doppelclick wurde ausgelöst
  If Button = 1 Then
    Form2_oeffnen
  End If
End Sub
 
Sub Form2_oeffnen()
  Form2.Show
End Sub