VB6中奇怪的问题？

在程序中我定义了一个文本框控件数组，取名：txtField 在其GotFocus事件中我写了如下代码：
Private Sub txtField_GotFocus(Index As Integer)
    Dim tStr As String
    Dim tRs As New ClsOpR
    Dim a As Integer　
    Select Case Index
　　　Case 0
　　　　　　’do something
　　　Case 1
          ’do something
　　　Case 2
          ’do something
　　　Case 3
          ’do something
     Case Else
          ’do something
     End Select     tRs.OpenRs tStr
        
        '填充comboBox控件
         Combo1.Clear
        If tRs.PRS.RecordCount > 0 Then
            For a = 1 To tRs.PRS.RecordCount
                Combo1.AddItem tRs.PRS.Fields(0).Value
                tRs.MoveNext
            Next
        End If
        tRs.MoveNext
        tRs.PRS.Close
        Set tRs = Nothing
        
        '设置comboBox的位置
        
         Combo1.Move txtField(Index).Left, txtField(Index).Top, txtField(Index).Width
        Combo1.BackColor = RGB(241, 241, 234)
        Combo1.Visible = True
   我这是用VB6做的一个数据库，用了ADO，水晶报表，我想将鼠标点击文本框控件时，ComBoBox自动移到文本框的位置，覆盖文体框，这样就可以选择ComBoBox的下拉项，做为文体框的内容，可是，omBoBox怎么也移不到我选择的文本框上，老是在其上面一段距离，请问是怎么回事？