کد کپی کردن

فايل ضميمه رو بدانلود.

کد:

---

Private Sub Form_Load()
List1.AddItem "Ali"
List1.AddItem "Hasan"
End Sub

Private Sub List1_Click()
    If LCase(List1.List(List1.ListIndex)) = "hasan" Then Text1.Text = "Jamshidi"
    If LCase(List1.List(List1.ListIndex)) = "ali" Then Text1.Text = "Bahalian"
End Sub

---

دستت درد نکنه قربونت برم