' LISTING 10.2  10LIST02.TXT --- Przykadowa procedura zdarzeniowa dla przycisku opcji

Private Sub optEngland_Click()
  Clear_Flags
  If optEngland.Value = True Then
    picEngland.Visible = True
  End If
End Sub


Public Sub Clear_Flags()
  picEngland.Visible = False
  picJapan.Visible = False
  picSpain.Visible = False
  picMexico.Visible = False
  picFrance.Visible = False
  picUSA.Visible = False
End Sub

