Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2

Public Enum WINDOWSTATE
    SHOWMAXIMIZED = SW_SHOWMAXIMIZED
    SHOWMINIMIZED = SW_SHOWMINIMIZED
End Enum

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Public Sub MinMaxWindow(frm As Form, WINSTATE As WINDOWSTATE)
    Dim hWnd As Long
    
    hWnd = frm.hWnd
    ShowWindow hWnd, WINSTATE
End Sub