' Benötigte API-Deklarationen
Private Declare Function GetSystemMenu Lib "user32" _
  (ByVal hwnd As Long, ByVal bRevert As Long) As Long
 
Private Declare Function RemoveMenu Lib "user32" _
  (ByVal hMenu As Long, ByVal nPosition As Long, _
  ByVal wFlags As Long) As Long
 
Private Const MF_BYCOMMAND = &H0&
Private Const SC_CLOSE = &HF060

Private Sub Form_Load()
  ' Schließen-Button deaktivieren
  Dim hMen As Long
  hMen = GetSystemMenu(Me.hwnd, False)
  RemoveMenu hMen, SC_CLOSE, MF_BYCOMMAND
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de