调用画图和游戏程序
Dim N1 As Integer, N2 As Integer
Private Sub command1_click()
N1 = Shell("F:\YDGZ(邮电高职)\VB(例子带知识)\记事本和游戏\mspaint.exe F:\YDGZ(邮电高职)\VB(例子带知识)\素材\邓海文10.jpg", 1)
End Sub
Private Sub command2_click()
N1 = Shell("F:\YDGZ(邮电高职)\VB(例子带知识)\记事本和游戏\winmine.exe", 1)
End Sub
Private Sub command_3click()
End

End Sub


