' LISTING 13.2 13LIST02.TXT - Wyiwetlanie tekstu przy wyborze wielu elementw z listy

Private Sub List1_Click()
 
If List1.Selected(0) = True Then
  Text6.Text = "Wybrany"
Else
  Text6.text = "Wolny"
End If

If List1.Selected(1) = True Then
  Text1.Text = "Wybrany"
Else
  Text1.text = "Wolny"
End If

If List1.Selected(2) = True Then
  Text2.Text = "Wybrany"
Else
  Text2.text = "Wolny"
End If

If List1.Selected(3) = True Then
  Text3.Text = "Wybrany"
Else
  Text3.text = "Wolny"
End If

If List1.Selected(4) = True Then
  Text4.Text = "Wybrany"
Else
  Text4.text = "Wolny"
End If

If List1.Selected(5) = True Then
  Text5.Text = "Wybrany"
Else
  Text5.text = "Wolny"
End If

End Sub
