Teraz jaśniej. Spróbuj tak:
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then Exit For
Next i
If i <= ListBox1.ListCount - 1 Then
MsgBox "Uważaj koleżko....."
Else
Unload Me
End If
End Sub
Hej |