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 S...