[حريف برمجة]

(15-04-18, 02:44 PM)wolf1120 كتب : شكر لك اخي الكريم  لكن عندى  سوال 


لم تضهر لي 20 و 30

انته سألت سؤال واجبتك ثم قمت بتغيير وتعديل السؤال وهذه الإجابة علية :

كود :

Private Sub Form_Load()
List1.AddItem "a"
List1.AddItem "b"
List1.AddItem "c"
List1.AddItem "d"
List1.AddItem "e"
List1.AddItem "f"
End Sub

Private Sub List1_Click()
List2.Clear
List2.AddItem List1.ListIndex + 1 & "0"
End Sub