تعليمة راااااااااااااااائعة في فيجول بيسيك(VB)

*امر يقوم بفتح السواقة الليزرية*
طريقة صنعه هي كالآتي :
1-ابدأ مشروع جديد وضع أداة تايمر على الفورم
2-ضع الكود الآتي في قسم التصريحات Declarations في General

هذا هو الكود :

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'---------------
Private Sub Timer1_Timer()
Timer1.Interval = Timer1.Interval + "1000"
If Timer1.Interval = "2000" Then
Call mciSendString("Set CDAudio Door Open", 0&, 0&, 0&)
End If
If Timer1.Interval = "5000" Then
Call mciSendString("Set CDAudio Door Closed", 0&, 0&, 0&)
End If
End Sub
3-طبعأ بامكانك وضع حلقة تكرار لفتح السواقة اكثر من مرة واحدة
مع تحيات juve lover

والله يا ابو شريك شكلك كتير قوي بالفيجوال حول لعندي عالدلفي منشان نكسر الدنية شو رأيك