'API-Funktionen
    Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
        ByVal hwnd As IntPtr, _
        ByVal nIndex As Integer, _
        ByVal dwNewLong As Integer) As Integer
 
    Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _
        ByVal hwnd As IntPtr, _
        ByVal nIndex As Integer) As Integer
 
'Konstanten
    Const GWL_STYLE = -16
    Const WS_CAPTION = &HC00000
    Const WS_BORDER = &H800000
 
'Aufruf im Form-Load-Ereignis
    SetWindowLong(Me.Handle, GWL_STYLE, GetWindowLong(Me.Handle, GWL_STYLE) And _
      (Not WS_CAPTION) Or WS_BORDER)