Dim myProcesses() As Process
    Dim myProcess As Process
    Dim teller As Integer = 0
    '' Returns array containing all instances of "Notepad".
    myProcesses = Process.GetProcessesByName("Notepad")
    For Each myProcess In myProcesses
    myProcess.CloseMainWindow()
    teller += 1
    Next
    If teller > 0 Then
    MessageBox.Show("closed")
    Else
    MessageBox.Show("Nothing to be closed")