با سلام
به چه روشی می توان صدای بلندگوی کیس را درآورد؟
به چه روشی می توان صدای بلندگوی کیس را درآورد؟
Sub Simple_beep()
Beep
MsgBox "A simple Beep"
End Sub
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub Produce_beep()
a = Beep(500, 2000)
MsgBox "An error has occured!"
End Sub
کامنت