Vb5 复制某个文本框的前三个字母并粘贴到另一个文本框

我知道这是个愚蠢的问题，但我还是想知道。我有两个文本框，textbox1和textbox2。我在textbox1中输入了一些文本。现在，当我使用tab index或在textbox2上单击鼠标从textbox1移动到textbox2时，我希望textbox1的前3个字符首先显示在textbox2中。我知道我可以让我们了解鼠标悬停事件，但如果我能从你那里得到一些好的意见，那就太好了。提前感谢。

这应该可以完成以下工作：

Private Sub textbox2_GotFocus()
 Dim length As Integer
 length = Len(textbox1.Text)
 If length > 3 Then length = 3
 textbox2.Text = Left$(textbox1.Text, length)
End Sub

如果单击文本框或使用tab键，将触发GotFocus事件