Private Sub Form_KeyDown(KeyCode As Integer, _
  Shift As Integer)
 
  If KeyCode = vbKeyG Then
    If Shift = 6 Then
      KeyCode = 0
 
      ' Jetzt MP3-File abspielen
 
    End If
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de