یه فرم ، یه لیست باکس و یک دکمه درست کن.اینم کدش:
کد:
Private Sub Command1_Click()
Dim i As Long
Dim j As Long
With List1
For i = 0 To .ListCount - 1
For j = .ListCount To (i + 1) Step -1
If .List(j) = .List(i) Then
.RemoveItem j
End If
Next
Next
End With
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem "item " & i
List1.AddItem "item " & i + 1
Next
End Sub