Private Sub chkmessage_Click() lbldisplay.Visible = Not lbldisplay.Visible = True End Sub Private Sub cmdclear_Click() lbldisplay.Caption = "" imgusa.Visible = False imgitaly.Visible = False imgmexico.Visible = False imgcanada.Visible = False imgphilippines.Visible = False End Sub Private Sub Form_Load() fracountry.Enabled = False chkmessage.Enabled = False cmdclear.Enabled = False imgusa.Visible = False imgitaly.Visible = False imgmexico.Visible = False imgcanada.Visible = False imgphilippines.Visible = False lbldisplay.Visible = False End Sub Private Sub mnudisplay_Click() lbldisplay.Visible = Not lbldisplay.Visible = True End Sub Private Sub oprusa_Click() imgusa.Visible = True lbldisplay.Caption = " This is the flag of U.S.A" cmdclear.Enabled = True End Sub Private Sub optcanda_Click() imgcanada.Visible = True lbldisplay.Caption = "This the flag of Canada" cmdclear.Enabled = True End Sub Private Sub optclose_Click() End End Sub Private Sub optitaly_Click() imgitaly.Visible = True lbldisplay.Caption = " This is the flag of Italy" cmdclear.Enabled = True End Sub Private Sub optmexico_Click() imgmexico.Visible = True lbldisplay.Caption = " this is the flag of Mexico" cmdclear.Enabled = True End Sub
Private Sub optphilippines_Click() imgphilippines.Visible = True lbldisplay.Caption = "this is the flag of Philippines" cmdclear.Enabled = True End Sub Private Sub optstart_Click() fracountry.Enabled = True chkmessage.Enabled = True End Sub