Private Sub Command2_Click()
sonuç = WinExec("CALC.EXE", 9)
End Sub
'MODUL OLUŞTRUN AŞAĞIDAKİ KODU MODUL'UN İÇİNE YAZIN
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
sonuç = WinExec("CALC.EXE", 9)
End Sub
'MODUL OLUŞTRUN AŞAĞIDAKİ KODU MODUL'UN İÇİNE YAZIN
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
