Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
Select Case KeyCode
 Case vbKeyF1
  mciSound.FileName = "... Dateipfad1..."
  mciSound.Command = "Open"
  mciSound.Command = "Play"
 Case vbKeyF2
  mciSound.FileName = "... Dateipfad2..."
  mciSound.Command = "Open"
  mciSound.Command = "Play"
End Select
End Sub

---------------------------------------
City4ALL- die erste, virtuelle 3D Stadt im Internet! Infos unter www.3DWelt.tk