صدای بیب

[اوبالیت به بو]

اول کد Api زیر رو تویه بخش General بنویس:

Public Declare Function MessageBeep Lib "user32" Alias "MessageBeep" (ByVal wType As Long) As Long

بعد یه متغیر از نوع Variant تعریف کن.مثل:

Dim Beeper as Variant

حالا تویه دکمه یا هرچیزی که می خوای صدا بده کد زیر رو بنویس:

Beeper=MessageBeep(-1)

اگر داخل پرانتز 1 بزاری از کارت صدایه کامپیوتر صدا میاد ولی -1 از بلندگویه کامپیوتر