vb如何实现把“列表框的内容”添加到焦点所在的“文本框”

不知道你是不是要实现这样的效果:

Dim myTextBox As TextBox

Private Sub List1_DblClick()
myTextBox.Text = List1.List(List1.ListIndex)
End Sub

Private Sub Text1_GotFocus()
Set myTextBox = Text1
End Sub
Private Sub Text2_GotFocus()
Set myTextBox = Text2
End Sub

Private Sub Text3_GotFocus()
Set myTextBox = Text3
End Sub

Private Sub Text1_GotFocus()
Text1.Tag = 1
Text2.Tag = 0
Text3.Tag = 0
End Sub

Private Sub Text2_GotFocus()
Text1.Tag = 0
Text2.Tag = 1
Text3.Tag = 0

End Sub

Private Sub Text3_GotFocus()
Text1.Tag = 0
Text2.Tag = 0
Text3.Tag = 1

End Sub

Private Sub List1_DblClick()
If Text1.Tag = "1" Then text1.text=list1.list(list1.listIndex)
If Text2.Tag = "1" Then text2.text=list1.list(list1.listIndex)

If Text3.Tag = "1" Then text3.text=list1.list(list1.listIndex)

End Sub

private sub List_DbClick()
text2.text = text2.text & list1.list(list1.listindex)
end sub