代碼:

Private Sub Form_Load()
Dim i As Long
With List1
For i = 1 To 9
.AddItem i & "*" & i * i & .ListCount
Next i
End With
End Sub

Private Sub List1_Click()
Dim strData As String
Dim strSplit() As String
strData = List1.List(List1.ListIndex)
strSplit = Split(strData, "*")
Text1.Text = strSplit(0)
Text2.Text = strSplit(1)
End Sub

原理就是這樣的