بچه این هم یک سرس خیلی باحال اگر متوجه نشدین به من حتما بگین تا براتون توظیح بدهم

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Activate()

Dim Cnt As Long

For Cnt = 0 To 5000 Step 10

Beep Cnt, 50

Me.Caption = Cnt

DoEvents

Next Cnt
'www.shhacker.blogsky.com
'email: [e-mail]
End Sub

  با تبادل لینک با تمامی وبلاگ ها موافقم به من لینک بدهید من هم به شما لینک میدهم