,怎么获取鼠标移动到窗体上的哪个控件

在线等,如何获取鼠标移动到窗体上的哪个控件?
如一个窗体有一个控件组 Pic(0) pic(1) Pic(2),鼠标在窗体上移动,当经过PIC数组时 Text1显示相应的Index
------解决思路----------------------
Private Sub pic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text1.Text = CStr(Index)
End Sub