Public Sub MakeNoBorder_And_3D(ByVal fForm As Form)
 
    Dim nStyle As Long 'Fensterstil
 
    With fForm
 
        'Formgrösse anpassen
        .Width = .ScaleWidth
        .Height = .ScaleHeight
 
        ' aktuellen Fensterstil emitteln
        nStyle = GetWindowLong(.hwnd, GWL_STYLE)
 
        ' Titelleiste entfernen
        nStyle = nStyle And Not WS_CAPTION
 
        ' Neuen Fensterstil setzen
        SetWindowLong .hwnd, GWL_STYLE, nStyle
 
        ' Erzwingt ein "Refresh" der Form (2004-02-16). (Spezielles "Refresh" 
        ' für Win9x)
        .Width = .Width + 100
        .Width = .Width - 100
    End With
End Sub