Private Declare Sub Beep Lib "kernel32" ( _
Optional ByVal Frequenz As Long = 440, _
Optional ByVal Dauer As Long = 200)
Private Sub Command1_Click()
Do
Beep CLng(Rnd * 80) * 20 + 200, _
CLng(Rnd * 2) * 100 + 100
Loop Until Rnd < 0.1
End Sub
vb6
compelieren & ausführen (unter XP alles andere is mir egal) auf eigene gefahr.
