أخي nehad4472
بالنسبة لك :
1 - أولاً الأمر Beep هو لإصدار صوت من سماعة الجهاز ( بدون السماعة الخارجية )
ويمكنك أن تلعب به بواسطة الـ API الخاصة به وهو
كود:
Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
ويمكنك تحديد درجة التردد والمدة كما في الكود التالي :
كود:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 1000, 1000
End Sub
أو بإمكانك تشغيل صوت من ملف أنت تختاره بواسطة الدالة sndPlaySound كما
في المثال التالي :
كود:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
sndPlaySound "c:\1.wav", 3
End Sub
حيث أنه يوجد زر Command1 عندك على الفورم .
2 - بالنسبة للزر تستطيع تغيير لونه فقط يعني الخارجي وذلك
بضبط الخاصية Style على القيمة 1 يعني Graphical وتغيير لون الخلفية
أما بالنسبة للون الخط فوالله ما عندي علم بذلك