bir sorum var;

command button ekledim ve

Private Sub Command1_Click()
List1.AddItem ("aaaaaaaa")
If List1.Text = aaaaaaaa Then
MsgBox "deneme"
End If
End Sub

kodunu girince msgbox ta deneem yazıyor ama

Private Sub Command1_Click()
Dim a As Integer
a = 5
List1.AddItem a
If List1.Text = Str(a) Then
MsgBox "deneme"
End If
End Sub

kodunu girince msgbox tepki vermiyor acaba niye bi cozum soyleyebilirmisiniz bana!!!
__________________