有没有办法在VB6中将ToolTip添加到MDI父窗体中？

Dim WithEvents mdiToolTip As ToolTip

Private Sub MDIForm_Load()
    Set mdiToolTip = New ToolTip
    mdiToolTip.Active = True
    mdiToolTip.AutoPopDelay = 5000 ' 设置自动隐藏延迟时间（毫秒）
    mdiToolTip.InitialDelay = 1000 ' 设置初始延迟时间（毫秒）
    mdiToolTip.ReshowDelay = 500 ' 设置重新显示延迟时间（毫秒）
End Sub

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim ctl As Control
    Set ctl = Me.ActiveControl
    
    If Not ctl Is Nothing Then
        If ctl.ToolTipText <> "" Then
            mdiToolTip.SetToolTip ctl, ctl.ToolTipText
        Else
            mdiToolTip.SetToolTip Me, "" ' 清除ToolTip
        End If
    Else
        mdiToolTip.SetToolTip Me, "" ' 清除ToolTip
    End If
End Sub