Private Sub Command77_Click()
If Me.Liste1.ItemsSelected.Count = 0 Then
MsgBox "En Az 1 Personel Secmelisiniz", vbCritical, "Personel Sec"
Me.Liste1.SetFocus
Me.Liste1.BorderColor = vbRed
KayitEkle
Exit Sub
End Sub
End Sub sarı olarak geliyor..tek personel tıklarsam seçiyor..am birden çok personeli seçmek isteyince bir önceki seçimi kaldırıyor..CTRL DE basılan seçiliyor.
"Oyun bitince şah ve piyon aynı kutuya atılır "