Visual Basic Practical 1

Private Sub Form Load()

Forml.Caption Fun Furn

She Visible = False

End Sub

Shr-Click

Private Bub she clie

Shrink the form Decrease the Form! Height Decrease the Forml Width End Sub form height by 100 twin Forml Height 100 form width by 100 twips Forml. Width 100

Grw - Click

Private Sub Grw Click()

Grow the form

Increase the form height by 100 twips Forml Height Increase the Forml Width Forml. Heaght + 100 form width by 100 twips Form1.Width + 100

End Sub

Hde - Click

Frivate Sub Hde Click ()

'Hide all buttons but Shw

Grw.Visible = False

Shr.Visible = False

Hde, Visible = False Rd. Visible = False

Bl.Visible = False

Show Shw button

Shw.Visible = True

End Sub

Rd - Click

Private Sub Rd Click()

'Make form red

Form1.BackColor vbRed

End Sub

Bl-Click

Private Sub Bl Click()

Make form blue

End Sub

Form1.BackColor vbBlue

Shw - Click

Private Sub Shw Click()

Show all buttons but Shw

Grw.Visible = True

Shr.Visible = True

Hde. Visible True

Rd.Visible = True

Bl.Visible = True

Hide She button

Shw.Visible = False

End Sub