Hur får man ett beep? (Just nu i win98)

Är detta korekt?
Private Sub Command3_Click()
Dim retval As Long
retval = Beep(800, 1000)
End Sub

vänligen tD

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

Private Sub Command3_Click()
Dim retval As Long
retval = Beep(800, 1000)
End Sub

mvh
Sven

Perfekt!

Tack!