Option Explicit
 
' Benötigte API-Deklarationen
Public Declare Function GetSystemMenu Lib "user32" _
  (ByVal hWnd As Long, ByVal bRevert As Long) As Long
 
Public Declare Function DeleteMenu Lib "user32" _
  (ByVal hMenu As Long, ByVal nPosition As Long, _
  ByVal wFlags As Long) As Long
 
Public Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
  Dim hMenu As Long
 
  ' Handle des Systemmenüs ermitteln
  hMenu = GetSystemMenu(Me.hWnd, False)
 
  ' Schließen-Befehl entfernen
  DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de