[vbnet]

.....

كود :

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

.....