Private Declare Auto Function Beep Lib "kernel32.dll" (ByVal dwFreg As Int32, ByVal dwDuration As Int32) As Int32
Private Sub Sound()
Dim random As Random = New Random
For i As Int16 = 0 To 20
Beep(random.Next(10000), 140)
Next
End Sub