Minimize Button

[MidgetsBro]

You can use Serge's code he posted in your other thread. Just use it like this:

'By Serge 8/14/2001
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 Const WS_MINIMIZEBOX = &H20000
 
Private Sub Command1_Click()
    Dim lngStyle As Long
    'open your program here
    lngStyle = GetWindowLong(Me.hwnd, GWL_STYLE) 'find your own app
    lngStyle = lngStyle Xor WS_MINIMIZEBOX 'set the style (disabled minimize)
    Call SetWindowLong(Me.hwnd, GWL_STYLE, lngStyle) 'disable it
    
End Sub