[3amo]

السلام عليكم ورحمة الله
مثال لاستمرار عمل البرنامج اثناء عرض رسائل تنبيهية(msgbox)

كود :

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As _Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As _
Long) As Long



Private Sub Command1_Click()
    MsgBox "The Timer STOPS!"
End Sub


Private Sub Command2_Click()
    MessageBox Me.hwnd, "Notice the timer does not stop!", "API Call", _
    vbOKOnly + vbExclamation
End Sub


Private Sub Timer1_Timer()
    Label1.Caption = Time
End Sub

ارجوا لك التوفيق