Как убрать "шапку" формы?

[Calvin]

Помогите плиз....Как убрать "шапку" формы?....но только на момент ее отображения.

[GSerg]

Сам в поиск пойдёшь (который красный вверху) или как?..

[Calvin]

искал (по SetWindowLong)...но все как-то обрывками...

[GSerg]

А ты по S e t W i n d o w R g n ищи...

[Calvin]

Нашел 2 варианта, но не один не работает:

Код: Выделить всё

Option Explicit

Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32.dll" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Sub Form_Load()
    With Me
        .BorderStyle = vbFixedSingle
        .Caption = "Some title"
    End With
    Dim hRgn As Long
    hRgn = CreateRectRgn(0, 30, 150, 130)
    Call SetWindowRgn(Me.hWnd, hRgn, True)
End Sub


Код: Выделить всё

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Sub Form_Load()
SetWindowLong hWnd, GWL_STYLE, ((GetWindowLong(hWnd, GWL_STYLE) Or &HC50000) Xor &HC50000)
SetWindowRgn hWnd, CreateRectRgn(0, 0, Me.Width / Screen.TwipsPerPixelX, Me.Height / Screen.TwipsPerPixelY), True

End Sub


помогите решить пож-та

[Терминатор]

Пример в файле.

[Calvin]

2Терминатор, спасибо, уважаемый