[الاستاذ خليل]

مشكلتك في اختيار الأحداث يعني
اذا احد وضع الماوس على الزر يصدر صوت ؟؟ كيف اسويها؟؟
تختار حدث مرور الماوس على الزر و تضغ فيه كود تشغيل الصوت و هو حدث MouseMove

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
هنا تضع كود تشغيل الصوت

End Sub

س/
اذا احد ظغط على زر مثلا على زر خروج يصدر صوت ؟؟ كيف اسويها؟؟
بسيطة تختار حدث الضغط على الزر و تضع فيه الصوت

Private Sub Command2_Click()
هنا تضع كود تشغيل الصوت
End Sub

الاستفسار الثالث كيف اغير واجهة البرنامج بواجهات جميلة ورائع
وسهلة التركيب
روح للفوتو شوب او اجلب اي صورة و ضعها بالخلفية اي اذهب لخاصية الصور Picture و اجلبها و ستكون خلفية لبرنامجك


الاستفسار الرابع والاخير
اذا احد وضع الماوس على الزر يتغير لون الزر؟؟ كيف اسويها؟؟

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Command1.BackColor = &H8000000D
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = &H8000000F
End Sub

يلزمك لفعله عدة امور و هي تغيير خاصية style الى Graphical
او كتابة الكود التالي بحدث لود النموذج (الفورم)

Private Sub Form_Load()
Command1.Style = 1
End Sub

و ثم تختار حدث تحريك الماوس في الفورم و تكتب الشفرة السابقة الخاصة بتغيير اللون حيث
Command1.BackColor = &H8000000D
End Sub

يمثل اسم الكائن ثم نغير خاصية الخلفية ثم الرمز اللون و تستطيع تغييره من الذهاب الى اي شيء فيه لون من الفجوال بيسك و نسخ الارقام اللون
هذا درس الصوت
http://www.hesab.net/vb/showthread.php?t=2165
اتمنى قد فهمت
و وضعت لك ملفا