Option Explicit 
  
'
 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ 
         (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
 '
 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
         (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
 '
 Private Const WM_CLOSE      As Long = &H10 
 Private Const HTCAPTION     As Long = 2& 
 '
 Private Const MON_TITRE     As String = "Sans titre - Bloc-notes" 
 '
 '
 Private Sub Command1_Click() 
     Dim lHwnd As Long 
     lHwnd = FindWindow(vbNullString, MON_TITRE) 
 
     If lHwnd = 0 Then 
         MsgBox "Titre non-trouvé!!!" 
     Else 
         Call SendMessage(lHwnd, WM_CLOSE, HTCAPTION, ByVal 0&) 
     End If 
 End Sub
 
 

class MyForm : Form

{
    // ..
    [ DllImport( "User32.dll", SetLastError = true ) ] 
    private static extern IntPtr FindWindow( string className, string windowName );
    [ DllImport( "User32.dll" ) ] 
    private static extern IntPtr SendMessage( IntPtr hWnd, uint msg, UIntPtr wParam, IntPtr lParam );

    private const int WM_CLOSE = 0x0010; 
    private const int HTCAPTION = 2;
    private const string WINDOW_NAME = "Sans titre - Bloc-notes";
    
    private void CloseWindow( ) 
    {
        IntPtr hWnd = FindWindow( null, WINDOW_NAME );
        if ( hWnd == IntPtr.Zero ) 
            MessageBox.Show( this, "La fenêtre est introuvable." ); 
        else

            SendMessage( hWnd, WM_CLOSE, ( UIntPtr )HTCAPTION, IntPtr.Zero ); 
    }
}

public void CloseApplicationByCaption(string caption) {
   foreach (Process p in Process.GetProcesses()) {
      if (p.MainWindowTitle.Equals(caption)) {
         p.Close();
      }
   } 
}

Public Sub CloseApplicationByCaption(ByVal caption As String)
   For Each p As Process In Process.GetProcesses()
      If (p.MainWindowTitle.Equals(caption)) Then
         p.Close()
      End If
   Next
End Sub

// Mode de fermeture par l'envoi d'un message Windows à l'application
SendMessage(FindWindow(nil, 'Titre de l'Application'), WM_CLOSE, 0, 0);