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);

    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", SetLastError:=True)> Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
    End Function
    Function CloseWindowFromHandle(ByVal hWnd As IntPtr) As Boolean
        Const WM_CLOSE As Int32 = &H10
        If hWnd = IntPtr.Zero Then
            Return False
        Else
            Return (SendMessage(hWnd, WM_CLOSE, 0, 0) = 0)
        End If
    End Function
    <System.Runtime.InteropServices.DllImportAttribute("user32.dll", SetLastError:=True)> Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
    Function GetHandleFromCaption(ByVal sCaption As String) As IntPtr
        Return FindWindow(Microsoft.VisualBasic.vbNullString, sCaption)
    End Function