18-07-17, 02:57 PM
شكرا يا اخواني عرفت الطريقه وهي كاتالي:
Private Sub Command1_Click()
Shell "" & App.Path & "\test.bat", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1_Click
Command3_Click
End Sub
Private Sub Command1_Click()
Shell "" & App.Path & "\test.bat", vbMaximizedFocus
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Form_Load()
Command1_Click
Command3_Click
End Sub
