我如何在下边弹出的txt文本中获取焦点?

我现在无法在弹出的窗体的获取焦点。'Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'该函数获得有关指定窗口的信息，函数也获得在额外窗口内存中指定偏移位地址的32位度整型值。
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'该函数改变指定窗口的属性．函数也将指定的一个32位值设置在窗口的额外存储空间的指定偏移位置。
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
'该函数返回指定窗口的边框矩形的尺寸。该尺寸以相对于屏幕坐标左上角的屏幕坐标给出。
Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
'该函数获取窗口客户区的坐标。客户区坐标指定客户区的左上角和右下角。由于客户区坐标是相对子窗口客户区的左上角而言的，因此左上角坐标为（0，0）
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
'该函数改变一个子窗口，弹出式窗口式顶层窗口的尺寸，位置和Z序。子窗口，弹出式窗口，及顶层窗口根据它们在屏幕上出现的顺序排序、顶层窗口设置的级别最高，并且被设置为Z序的第一个窗口。
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
'该函数设置指定窗口的显示状态。
'Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'该函数检取光标的位置，以屏幕坐标表示。
Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long
'该函数获得一个指定子窗口的父窗口句柄。
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
'该函数改变某个子窗口的父窗口。
Private Declare Function GetFocus Lib "user32" () As Long
'确定当前焦点位于哪个控件上。
Private Declare Function GetCapture Lib "user32" () As Long
'该函数取得捕获了鼠标的窗口（如果存在）的句柄。在同一时刻，只有一个窗口能捕获鼠标；此时，该窗口接收鼠标的输入，无论光标是否在其范围内。
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'判断函数调用时指定虚拟键的状态
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。'Private Type POINTAPI
'    X As Long
'    Y As Long
'End TypePrivate Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
'----------------lbj
Enum GridListKind
     Data = 1 '直接绑定数据库
     AddItem = 2 '用listGrid.additem增加
End Enum
'
Enum SBorderKind
     Line = 1 '下划线
     Box = 2 '方框
End Enum
''----------------lbj
Private Const GWL_EXSTYLE           As Long = (-20)Private Const HWND_TOPMOST          As Long = -1Private Const SW_HIDE               As Long = 0
Private Const SW_SHOW               As Long = 5
Private Const SWP_NOSIZE            As Long = &H1Private Const WS_EX_TOOLWINDOW      As Long = &H80Private Const WM_KILLFOCUS          As Long = &H8
Private Const WM_KEYDOWN            As Long = &H100
Private Const WM_MOUSEWHEEL         As Long = &H20A         ' 鼠标滚轮消息Private Const VK_LBUTTON            As Long = &H1
Private Const VK_RBUTTON            As Long = &H2Private m_bDropDown     As Boolean          ' 是否显示 Grid
Private m_bSubclass     As Boolean          ' 是否已经子类处理
Private TextVisible As Boolean
'Implements ISubclass'-----------------------lbj
Public ListGrid As TextBox
Public ReturnCol As Integer '返回列
'-----------------------lbj
'事件声明:
Event KeyDown(KeyCode As Integer, Shift As Integer) 'MappingInfo=txtEdit,txtEdit,-1,KeyDown
Event ListAddItem()
Event Change() 'MappingInfo=txtEdit,txtEdit,-1,Change
'
''------Kind属性lbj
'缺省属性值:
Const m_def_InRe = False
Const m_def_TextWidth = 5000
Const m_def_HiddeCol = ""
Const m_def_CaptionInBox = False
Const m_def_Tag2 = ""
Const m_def_CaptionYN = True
'Const m_def_TextWidth = 5000
Const m_def_TextHeight = 2500
Const m_def_IsKey = False
Const m_def_IsNull = False
'Const m_def_TextWidth = 0
'Const m_def_TextHeight = 50
Const m_def_BorderKind = 1
Const m_def_DataKind = 1
Const m_def_DataField = ""
''属性变量:
Dim m_InRe As Boolean
Dim m_TextWidth As Integer
Dim m_HiddeCol As String
Dim m_CaptionInBox As Boolean
Dim m_Tag2 As String
Dim m_CaptionYN As Boolean
Dim m_TextHeight As Variant
Dim m_IsKey As Boolean
Dim m_IsNull As Boolean
'Dim m_TextWidth As Variant
'Dim m_TextHeight As Variant
Dim m_BorderKind As SBorderKind
Dim m_DataField     As String
Public TextBox As TextBox
Dim lScrWidth   As Long
Dim lScrHeight  As LongDim tR1         As RECT
Dim tR2         As RECT
Private Sub btnDropDown_Click()
    If TextVisible = False Then
       showdropdown2
    Else
       TextVisible = False
       ShowWindow DictGrid.hWnd, SW_HIDE
    End IfEnd Sub
Private Sub UserControl_Resize()
    On Error Resume Next
    UserControl.Height = 375
'    If m_CaptionYN = True Then '有标题
       Label1.Move 180, 90
       Label1.Height = UserControl.Height - 30
       Label1.Visible = True       txtEdit.Left = Label1.Left + Label1.Width + 150
       txtEdit.Top = 80
       txtEdit.Height = UserControl.ScaleHeight - txtEdit.Top - 30
       If m_InRe = True Then
          If m_TextWidth = 0 Then m_TextWidth = Format(UserControl.ScaleWidth / 2, "####0")
          txtEdit.Width = m_TextWidth
          LabRe.Visible = True
          btnDropDown.Move txtEdit.Left + txtEdit.Width + 30, txtEdit.Top - 20, 255, btnDropDown.Height
          LabRe.Left = btnDropDown.Left + btnDropDown.Width + 50
          LabRe.Move LabRe.Left, 90
       Else
          txtEdit.Width = UserControl.ScaleWidth - txtEdit.Left - btnDropDown.Width - 60
          LabRe.Visible = False
          btnDropDown.Move ScaleWidth - 255 - 60 + 30, txtEdit.Top - 20, 255, btnDropDown.Height
       End If       If m_CaptionInBox = True Then
          Shape2.Left = 0
       Else
          Shape2.Left = txtEdit.Left - 30
       End If    Shape1.Left = Shape2.Left
    Shape1.Top = 0
    Shape1.Width = UserControl.ScaleWidth - Shape1.Left
    Shape1.Height = UserControl.ScaleHeight    Shape2.Left = Shape1.Left
    Shape2.Top = UserControl.ScaleHeight - 10
    Shape2.Width = Shape1.Width
    Shape2.Height = 15
End Sub
Private Sub showdropdown2()    'If Not m_bDropDown Then        ' 调整 Grid 的大小
        ' ...
        SetWindowLong DictGrid.hWnd, GWL_EXSTYLE, GetWindowLong(DictGrid.hWnd, GWL_EXSTYLE) Or WS_EX_TOOLWINDOW
        SetParent DictGrid.hWnd, 0        lScrWidth = Screen.Width / Screen.TwipsPerPixelX
        lScrHeight = Screen.Height / Screen.TwipsPerPixelY        GetWindowRect txtEdit.hWnd, tR1     ' 获取 Text 的位置
        GetClientRect DictGrid.hWnd, tR2    ' 获取 Grid 的大小
        'DictGrid.Text = "showdropdown2"
        ' 计算显示位置,显示位置不能超出屏幕范围
        If tR1.Left < 0 Then
            tR1.Left = 0
        End If        If tR1.Left + tR2.Right > lScrWidth Then
            tR1.Left = lScrWidth - tR2.Right
        End If        If tR1.Bottom < 0 Then
            tR1.Bottom = 0
        End If        If tR1.Bottom + tR2.Bottom > lScrHeight Then
            ' 从上方显示
            tR1.Bottom = tR1.Top - tR2.Bottom - UserControl.Height / Screen.TwipsPerPixelY + 60 / Screen.TwipsPerPixelY
        End If        If tR2.Right < tR1.Right - tR1.Left Then
            tR2.Right = tR1.Right - tR1.Left
        End If        ' 设置 Grid 的位置
        SetWindowPos DictGrid.hWnd, HWND_TOPMOST, tR1.Left - 2, tR1.Bottom + 2, 0, 0, SWP_NOSIZE
        TextVisible = True
        DictGrid.Enabled = True
        DictGrid.SetFocus
End Sub
' 关闭 DropDown
Private Sub CloseDropDown()  '  If m_bDropDown Then        ShowWindow DictGrid.hWnd, SW_HIDE        m_bDropDown = False   ' End IfEnd Sub