'beep

Private Declare Function Beep Lib "kernel32" _
  (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long


Private Sub Form_Load()
Beep 200, 2000
End Sub