Hi..

I'm learning to use API and one silly simple on is this that makes random bip's on the pc-speaker:

Code:
Public Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Code:
 Dim l As Long
 Dim i As Integer
 
 Randomize
 For i = 1 To 1000
    l = Beep(Int(10000 * Rnd), 50)
 Next
Anyone that got something more stupid or fun???