-
I know that I ask this question ..
But I've lost it and I can't find it..
so.:
What is the command to delete multiple item in the same time in a
list box whit multiple selection proprity ???
#2----------------------------------------------------
And how can I do the difference between if the box is selecte or checked if I put the check box proprity ??
-
Q1:
Code:
Private Sub List1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Then
On Error Resume Next
Dim i As Integer
With List1
For i = .ListCount - 1 To 0 Step -1
If .Selected(i) Then
.RemoveItem (i)
End If
Next
End With
End If
Q2:
Code:
Private Sub Command1_Click()
chk = Check1.Value
If chk <> 0 Then
MsgBox "Checked"
Else
MsgBox "Unchecked"
End If
End Sub