Копался в кернел32.длл и вот что намутил -
While Not GetKey()
BeeP
Wend
End
Function BeeP()
xCallDll("kernel32.dll","Beep","Здесь пишем любое значение и оно озвучится щелчками xD")
End Function
Function xCallDll(dll$,func_name$,command$)
Open = CreateBank(Len(command))
For I = 1 To Len(command)
PokeByte Open,I - 1,Asc(Mid$(command,I,1))
Next
CallDLL(dll,func_name,Open)
End Function