Botão Minimizar, Maximizar e Rest. Tamanho no Formulário.

Vou mostrar através deste matéria, como criar esses botões, como mostra a figura abaixo, no formulário.

Assista o Vídeo

Esse 1º Código é para ser inserido em um Módulo.

Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _

    ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _

    ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

(ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Declare Function SetWindowsHookEx Lib _

"user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, _

ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _

ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Type POINTAPI

  X As Long

  Y As Long

End Type

Type MSLLHOOKSTRUCT

    pt As POINTAPI

    mouseData As Long

    flags As Long

    time As Long

    dwExtraInfo As Long

End Type

Const HC_ACTION = 0

Const WH_MOUSE_LL = 14

Const WM_MOUSEWHEEL = &H20A

Dim hhkLowLevelMouse, lngInitialColor As Long

Dim udtlParamStuct As MSLLHOOKSTRUCT

Public intTopIndex As Integer

Function GetHookStruct(ByVal lParam As Long) As MSLLHOOKSTRUCT

   CopyMemory VarPtr(udtlParamStuct), lParam, LenB(udtlParamStuct)

    

   GetHookStruct = udtlParamStuct

    

End Function

Function LowLevelMouseProc _

(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

    On Error Resume Next

    If (nCode = HC_ACTION) Then

        

        If wParam = WM_MOUSEWHEEL Then

            

            LowLevelMouseProc = True

            

            'ATENÇÃO: Troque o nome do seu Userform

            With UserForm1

                

                'ROLAR PARA CIMA

                If GetHookStruct(lParam).mouseData > 0 Then

                    .ScrollTop = intTopIndex - 10

                    intTopIndex = .ScrollTop

                Else

                'ROLAR PARA BAIXO

                    .ScrollTop = intTopIndex + 10

                    intTopIndex = .ScrollTop

                End If

                

            End With

            

        End If

        

        Exit Function

        

    End If

    UnhookWindowsHookEx hhkLowLevelMouse

    LowLevelMouseProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)

End Function

Sub Hook_Mouse()

    If hhkLowLevelMouse <> 0 Then

        UnhookWindowsHookEx hhkLowLevelMouse

    End If

        

    hhkLowLevelMouse = SetWindowsHookEx _

    (WH_MOUSE_LL, AddressOf LowLevelMouseProc, Application.Hinstance, 0)

End Sub

Sub UnHook_Mouse()

    If hhkLowLevelMouse <> 0 Then UnhookWindowsHookEx hhkLowLevelMouse

    

End Sub

Esse 2º Código é para ser inserido em um Formulário.

Option Explicit

Private Sub UserForm_Initialize()

Dim hWnd As Long

    'Vai para o topo do formulário

    ScrollTop = 0

    

    'Define os botões minimizar e maximizar do form

    hWnd = FindWindow(vbNullString, UserForm1.Caption)

    SetWindowLong hWnd, -16, &H20000 Or &H10000 Or &H84C80080

End Sub

Private Sub UserForm_Scroll(ByVal ActionX As MSForms.fmScrollAction, ByVal ActionY As MSForms.fmScrollAction, ByVal RequestDx As Single, ByVal RequestDy As Single, ByVal ActualDx As MSForms.ReturnSingle, ByVal ActualDy As MSForms.ReturnSingle)

    'Evento do trackball do mouse

    intTopIndex = ScrollTop

    Call Hook_Mouse

End Sub

Private Sub UserForm_Terminate()

    Call UnHook_Mouse

End Sub

Private Sub UserForm_Deactivate()

    Call UnHook_Mouse

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    Call UnHook_Mouse

End Sub