سلام
میتونید از این کد استفاده کنید ( در داخل یک ماژول اون رو کپی کنید )
Public Sub KillExcecutedFile(ExecutedFileName As String)
On Error GoTo Err_KillExcecutedFile
Dim ProcessName As Object
For Each ProcessName In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & ExecutedFileName & "'")
ProcessName.Terminate
Next
Exit_KillExcecutedFile:
On Error Resume Next
Exit Sub
Err_KillExcecutedFile:
Select Case Err.Number
Case 0
Resume Exit_KillExcecutedFile:
Case Else
MsgBox Err.Number & " " & Err.Description, vbExclamation, "Error in function KillExcecutedFile"
Resume Exit_KillExcecutedFile:
End Select
End Sub
و به طور مثال به شکل زیر اون رو فرخوانی کنید :
Private Sub cmdSampleButton_Click()
Call KillExcecutedFile("Notepad.exe")
End Sub
کد بالا برنامه Notepad رو از طریق کلیک بر روی یک دکمه می بنده
موفق باشید