Sub fracoundes() optphil.Enabled = False optusa.Enabled = False optitaly.Enabled = False optspain.Enabled = False optchina.Enabled = False End Sub Sub fracounen() optphil.Enabled = True optusa.Enabled = True optitaly.Enabled = True optspain.Enabled = True optchina.Enabled = True End Sub Sub framesd() chkmes.Enabled = False End Sub Sub framese() chkmes.Enabled = True End Sub Private Sub chkmes_Click() txtmessage.Visible = chkmes.Value End Sub Private Sub cmdstart_Click() fracounen framese txtmessage.Enabled = True End Sub Private Sub Form_Load() imgphil.Visible = False imgusa.Visible = False imgitaly.Visible = False imgspain.Visible = False imgchina.Visible = False framesd fracoundes txtmessage.Enabled = False End Sub Private Sub optchina_Click() imgchina.Visible = True imgphil.Visible = False imgusa.Visible = False imgitaly.Visible = False imgspain.Visible = False txtmessage.Caption = "China is the world's most populated country" txtmessage.Visible = chkmes.Value End Sub Private Sub optitaly_Click()
imgitaly.Visible = True imgphil.Visible = False imgusa.Visible = False txtmessage.Caption = "The famous pasta dishes originated from Italy" txtmessage.Visible = chkmes.Value End Sub Private Sub optphil_Click() imgphil.Visible = True txtmessage.Caption = "The Philippines has more than 7,100 islands" txtmessage.Visible = chkmes.Value End Sub Private Sub optspain_Click() imgspain.Visible = True imgphil.Visible = False imgusa.Visible = False imgitaly.Visible = False txtmessage.Caption = "Spain invaded the Philippines for more than 300 years." txtmessage.Visible = chkmes.Value End Sub Private Sub optusa_Click() imgusa.Visible = True imgphil.Visible = False imgspain.Visible = False imgchina.Visible = False imgitaly.Visible = False txtmessage.Caption = "United States of America is the most powerful country in the world" 'txtmessage.Visible = chkmes.Value End Sub