$INCLUDE "RapidQ.INC" 'so I can use the bi* notation

DECLARE SUB Button1Click (Sender AS QBUTTON)
DECLARE SUB Button2Click (Sender AS QBUTTON)

CREATE Form AS QFORM
Caption = "Form1"
Width = 320
Height = 240
Center
CREATE Button1 AS QBUTTON
Caption = "Remove Min" ''remove mimimize button
Left = 29
Top = 26
OnClick = Button1Click
END CREATE
CREATE Button2 AS QBUTTON
Caption = "Add Minimize"
Left = 121
Top = 30
TabOrder = 1
OnClick = Button2Click
END CREATE
END CREATE

Form.ShowModal

SUB Button1Click (Sender AS QBUTTON)
Form.DelBorderIcons(biMinimize) 'delete the mimimize button from the form
END SUB

SUB Button2Click (Sender AS QBUTTON)
Form.AddBorderIcons(biMinimize) ''add the minimize button back
END SUB