Private Declare Function Beep Lib kernel32 (ByVal dwFreq As Long, ByVal
dwDuration As Long) As Long
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 10
Beep i, 200
Next
End Sub
Private Sub Command1_Click()
Call Command2_Click = Call Command3_Click
End Sub
Private Sub Command1_Click()
if Command2_Click = Command3_Click then
Call Command2_Click = Call Command3_Click
End if