Public Class Form1
  Private Declare Auto Function SendMessage Lib "user32" ( _
    ByVal hwnd As IntPtr, _
    ByVal wMsg As Integer, _
    ByVal wParam As Integer, _
    ByVal lParam As Integer) As Integer
 
  Private Const WM_QUIT As Integer = &H12
  Private Const WM_CLOSE As Integer = &H10
 
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles Button1.Click
    SendMessage(Me.Handle, WM_CLOSE, 0&, 0&)
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de