vb点击text窗口弹出Form2怎么实现

Form1有个text控件数组，点击text某个数组窗口弹出Form2怎么实现，跳出Form2时要跟在刚点击这个text窗口边上显示。说明下：我的Form2是数字键盘，因为电脑是用触摸屏没有键盘，所以想这样的办法！望那位高人出出注意！写段代码！

VB code

Private Sub Text1_Click(Index As Integer)
Select Case Index
   Case 0
       Form2.Left = Me.Left + Text1(0).Left + 30
       Form2.Top = Me.Top + Text1(0).Top - Form2.Height + 450
       Form2.Show

   Case 1
       Form2.Left = Me.Left + Text1(1).Left + 30
       Form2.Top = Me.Top + Text1(1).Top - Form2.Height + 450
       Form2.Show

End Select

End Sub

是否要模态显示弹出窗体自定吧。（form2.show 1)

增加一点内容，有什么不同你自感觉吧：
VB code

Private Sub Text1_Click(Index As Integer)
Select Case Index
   Case 0
       Form2.Left = Me.Left + Text1(0).Left + 30
       Form2.Top = Me.Top + Text1(0).Top - Form2.Height + 450
       Form2.Show , Me

   Case 1
       Form2.Left = Me.Left + Text1(1).Left + 30
       Form2.Top = Me.Top + Text1(1).Top - Form2.Height + 450
       Form2.Show , Me

End Select

End Sub