1
2
3
4
5
6
7
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub cmdBeep1_Click()
Beep (Rnd()* 5000), 50 'primo valore: frequenza del suono, secondo valore: durata

End Sub
Share and Enjoy:
  • Print this article!
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google Bookmarks

Tags: , ,
Prissimo articolo Categoria misteri e pensieri spostata
Articolo precedente [VB6] Creare delle Ballon Tips