' LISTING 10.1 -- 10LIST01.TXT --- Kod dla midzynarodowej aplikacji

Private Sub chkEngland_Click()
  If chkEngland.Value = 1 Then
    picEngland.Visible = True
  Else  
        picEngland.Visible = False
    End If
End Sub


Private Sub chkJapan_Click()
  If chkJapan.Value = 1 Then
    picJapan.Visible = True
  Else  
        picJapan.Visible = False
    End If
End Sub

Private Sub chkSpain_Click()
  If chkSpain.Value = 1 Then
    picSpain.Visible = True
  Else  
        picSpain.Visible = False
    End If
End Sub

Private Sub chkMexico_Click()
  If chkMexico.Value = 1 Then
    picMexico.Visible = True
  Else  
        picMexico.Visible = False
    End If
End Sub


Private Sub chkFrance_Click()
  If chkFrance.Value = 1 Then
    picFrance.Visible = True
  Else  
        picFrance.Visible = False
    End If
End Sub

Private Sub chkUSA_Click()
  If chkUSA.Value = 1 Then
    picUSA.Visible = True
  Else  
        picUSA.Visible = False
    End If
End Sub