سؤال الى الأخوة

الله يعطيكم العافيه ولله ..... صراحه جاوبتوني وما قصرتوا !!!!!

كل الي طالبه منكم بعض الأجراءات الي تستخدم في إغلاق

بعض الأشياء مثل ...

Private Sub Command3_Click()
On Error Resume Next
wskclient.SendData "openCD"
End Sub

Sub CDOpen()
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub

بس إجراءات افضل ... يعني كيف ممكن تخفي الcontrol panel

لا تبخلوا علينا ... :(