如何使text控件组具有移入移出事件

Question

Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Text1
 If Button = 0 Then
 If (X < 0) Or (Y < 0) Or (X > .Width) Or (Y > .Height) Then
 ReleaseCapture
 ' 放入鼠标离开的代码
 MsgBox "out"
 Else
 SetCapture .hWnd
 
 End If
 End If
 End With
End Sub
这个是text1具有移入移出事件，如果窗体上有text1(1),text(2),text3(),怎么改啊

Answer 1

对的，有类似的帖子
我搬过来吧
N多TextBox处理相同事件的传送门

Answer 2

Private Sub Text1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 
With Text1(Index)