Private Sub Command1_Click()
sonuç = WinExec("notepad.exe", 9)
End Sub
'MODUL OLUŞTURUN 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("notepad.exe", 9)
End Sub
'MODUL OLUŞTURUN AŞAĞIDAKİ KODU MODUL'UN İÇİNE YAZIN
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
