[asto]

اعطيك مثال عن ليست بوكس بثلاثة عناصر

كود :

Private Sub Command1_Click()
List1.List(i) = text1.text
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
i = 0
text1.text=""
text1.Visible = True
Command1.Visible = True
Case 1
i = 1
text1.text=""
text1.Visible = True
Command1.Visible = True
Case 2
i = 2
text1.Visible = True
text1.text=""
Command1.Visible = True
End Select
End Sub

للايضاح نضيف واحد تكست و واحد كوماند و ننسخ الكود كما هو و السلام