菜鸟求教！——点击listbox，输入textbox
请教各位高人，如何用鼠标点击列表项或窗体而不是文本框时，然后输入字符，而输入的字符显示在文本框中，谢谢了。
点击listbox，输入textbox
[解决办法]
在ListBox的KeyPress里面写：
Text1.Text = Text1.Text & Chr(KeyAscii)
[解决办法]
楼主是想通过鼠标点击列表框或窗体，使文本框获得焦点？

Private Sub Form_Click()
    Text1.SetFocus
End Sub

Private Sub List1_GotFocus()
    Text1.SetFocus
End Sub