Private Sub Form_Load()
       ' ......  
       sub_RemoveItemsFromSysMenu Me, &h60
       ' ......
End Sub

Global Const MF_BYPOSITION = &H400
Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, _
                 ByVal nPosition As Long, ByVal wFlags As Long) As Long
Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, _
                 ByVal Action As Long) As Long

Sub sub_RemoveItemsFromSysMenu(frmForm As Form, ByVal lngTyp As Long)
      '
      'Anpassen des Systemmenues der Form
      'Bit:
      '8-Switch to
      '7-Separator
      '6-Schließen ausblenden
      '5-Separator
      '4-Maximize
      '3-Minimize
      '2-Size
      '1-Verschieben ausblenden
      '0-(Restore)Wiederherstellen  ausblenden
      '
      'Wird das betreffende Bit auf 1 gesetzt, wird der betreffende Eintrag 
      ' "diabled" bzw.
     'nicht mehr angezeigt.
      'z.B. &h1FF = > alles OFF
      'z.B. &h60  = > Shließen und Separator disabled
      '
      'MF_BYPOSITION = &H400  'Used by RemoveMenu()
 
      Dim lngIdx As Long
      Dim lngR As Long
      Dim lngHSysMenu As Long
 
      lngHSysMenu = GetSystemMenu(frmForm.hWnd, 0)
 
      For lngIdx = 8 To 0 Step -1
          If (2 ^ lngIdx And lngTyp) > 0 Then
             lngR = RemoveMenu(lngHSysMenu, lngIdx, MF_BYPOSITION)
          End If
      Next lngIdx
 
End Sub

Tschaui
Woellmi