جیغ کامپیوتر را درآورید

این کدها باعث می شود از کارت صدای کامپیوتر صدای beep بیاید.ابتدا این کدها را در قسمتgeneral  کپی کنید:

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

یک تایمر درست کنید و این کد ها را درونش بنویسید.

t = GetTickCount& 60000If t >= 10 ThenBeep 135, 3304