Private Sub Button1_Click(sender As Object, e As EventArgs) Handles ButtonIsProgaRun.Click
    MsgBox(IsProgaRun("proga.exe"))
    'MsgBox(IsProgaRun("Мое приложение"))
  End Sub

  Private Sub ButtonKillProga_Click(sender As Object, e As EventArgs) Handles ButtonKillProga.Click
    KillProga("proga.exe")
    'KillProga("Мое приложение")
 End Sub

Module Module1
  Dim TargetName As String
  Dim TargetHwnd As IntPtr

  Public Declare Function EnumWindows Lib "user32" _
   (ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As IntPtr) As Boolean
  Public Delegate Function EnumWindowsProc _
   (ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean

  Public Declare Unicode Function GetWindowText Lib "user32" Alias _
   "GetWindowTextW" (ByVal hwnd As IntPtr, ByVal lpString As String, _
   ByVal nMaxCount As Integer) As Integer

  Public Declare Function IsWindow Lib "user32" (ByVal hwnd As IntPtr) As Boolean

  Public Const GWL_STYLE = (-16)

  Public Declare Unicode Function GetWindowLong Lib "user32" Alias _
   "GetWindowLongW" (ByVal hwnd As IntPtr, ByVal nIndex As Integer) As Integer

  'Window Styles
  Public Const WS_DISABLED As Integer = &H8000000

  Public Const WS_CANCELMODE = &H1F

  'Window Notifications
  Public Const WM_CLOSE = &H10

  Public Declare Unicode Function PostMessage Lib "user32" Alias "PostMessageW" _
   (ByVal hwnd As IntPtr, ByVal wMsg As UInteger, ByVal wParam As UIntPtr, ByVal lParam As IntPtr) As Integer

  Public Function IsProgaRun(ByVal proga As String) As Boolean
    TargetName = proga
    TargetHwnd = IntPtr.Zero
    ' Examine the window names.
    EnumWindows(New EnumWindowsProc(AddressOf EnumProc), 0)
    ' See if we got an hwnd.
    IsProgaRun = (TargetHwnd <> IntPtr.Zero)
  End Function

  Private Function EnumProc(ByVal app_hwnd As IntPtr, _
   ByVal lParam As Integer) As Boolean
    ' Return False to stop the enumeration.

    ' Get the window's title.
    Dim buf As String = StrDup(256, Chr(0))
    Dim length As Integer = GetWindowText(app_hwnd, buf, Strings.Len(buf) + 1)
    Dim Title As String = buf.Substring(0, length)

    ' See if the title contains the target.
    If InStr(Title, TargetName) > 0 Then
      ' Save the hwnd and end the enumeration.
      TargetHwnd = app_hwnd
      Return False ' Save the hwnd and end the enumeration
    End If

    Return True ' Continue the enumeration (default)
  End Function

  Public Sub KillProga(ByVal proga As String)
    Do
      TargetName = proga
      TargetHwnd = IntPtr.Zero
      ' Examine the window names.
      EnumWindows(New EnumWindowsProc(AddressOf EnumProc), 0)
      ' See if we got an hwnd.
      If TargetHwnd = IntPtr.Zero Then
        Exit Do
      Else
        EndTask(TargetHwnd)
      End If
    Loop
  End Sub

  Public Sub EndTask(ByVal TargetHwnd As IntPtr)
    'Close the window
    If IsWindow(TargetHwnd) Then
      If Not (GetWindowLong(TargetHwnd, GWL_STYLE) _
       And WS_DISABLED) Then
        PostMessage(TargetHwnd, WS_CANCELMODE, UIntPtr.Zero, IntPtr.Zero)
        PostMessage(TargetHwnd, WM_CLOSE, UIntPtr.Zero, IntPtr.Zero)
        Application.DoEvents()
      End If
    End If
  End Sub

End Module

  Public Function IsProgaRunNet(ByVal proga As String) As Boolean
    IsProgaRunNet = False
    Dim aoAllProcesses As Diagnostics.Process() = Diagnostics.Process.GetProcesses()
    For Each oProc As Diagnostics.Process In aoAllProcesses
      If InStr(oProc.MainWindowTitle, proga) > 0 Then
        oProc.Close()
        IsProgaRunNet = True
        Exit Function
      ElseIf oProc.ProcessName = proga Then
        oProc.Close()
        IsProgaRunNet = True
        Exit Function
      End If
    Next

    If Right(UCase(proga), 4) = ".EXE" Then
      Dim processName As String = proga.Substring(0, UCase(proga).IndexOf(".EXE"))
      Dim aoProcsByName As Diagnostics.Process() = Diagnostics.Process.GetProcessesByName(processName)
      If aoProcsByName.Length > 0 Then IsProgaRunNet = True
      For Each oProc As Diagnostics.Process In aoProcsByName
        oProc.Close()
      Next
    End If
  End Function

  Public Sub KillProgaNet(ByVal proga As String)
    Dim aoAllProcesses As Diagnostics.Process() = Diagnostics.Process.GetProcesses()
    For Each oProc As Diagnostics.Process In aoAllProcesses
      If InStr(oProc.MainWindowTitle, proga) > 0 Then
        oProc.CloseMainWindow()
        Application.DoEvents()
      ElseIf oProc.ProcessName = proga Then
        oProc.CloseMainWindow()
        Application.DoEvents()
      End If
      oProc.Close()
    Next
    If Right(UCase(proga), 4) = ".EXE" Then
      Dim processName As String = proga.Substring(0, UCase(proga).IndexOf(".EXE"))
      Dim aoProcsByName As Diagnostics.Process() = Diagnostics.Process.GetProcessesByName(processName)
      For Each oProc As Diagnostics.Process In aoProcsByName
        oProc.CloseMainWindow()
        Application.DoEvents()
        oProc.Close()
      Next
    End If
  End Sub

  SetConsoleCtrlHandler((PHANDLER_ROUTINE)CtrlHandler, TRUE);
...
BOOL CtrlHandler(DWORD fdwCtrlType) 
{ 
  switch(fdwCtrlType) 
  { 
    case CTRL_C_EVENT:
    case CTRL_CLOSE_EVENT:
    case CTRL_BREAK_EVENT:
      manager->...
      //Beep(1000, 200); 
      return FALSE;
    case CTRL_LOGOFF_EVENT:
      if (!IsLocalSystem()) {
        manager->...
        //Beep(1000, 200); 
        //Beep(1000, 200); 
      }
      return FALSE; 
    case CTRL_SHUTDOWN_EVENT: 
    default: 
      return FALSE; 
  } 
}

foreach(var p in Process.GetProcessesByName("notepad"))
  p.Kill();