你试试:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 500, 1000
End Sub
===================================================
讨厌C#的行尾的小尾巴;和一对大括号{ }
===================================================