22-02-14, 09:26 PM
.....
.....
كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim pProcess() As Process = Diagnostics.Process.GetProcessesByName("notepad")
For Each p As Process In pProcess
If p.MainWindowTitle.Contains(filename) Then
p.Kill()
End If
Nex
End Sub
.....