توسط این سورس کد می توانید کیس خود را به جت تبدیل کنید.

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

Private Sub Form_Load()
Show
For i = 1 To 5000 Step 10
Beep i, 50
DoEvents
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub