vb6 - 在 VB6 中悬停时显示标题栏

Question

只有当鼠标像 Windows Media Player 9 一样位于窗体顶部时，如何才能显示窗体的标题栏？我已经实现了这一点，但是如果我在 WMP 9/10 的窗口停留在当前位置时使用我的代码，它会很尴尬并且控件/元素和窗口会向下移动一点。

Private Sub Timer1_Timer()
    Dim pos as coord  'my type, has x as long and y as long
    GetCursorPos pos
    If pos.y * 15 > Me.Top - 500 And pos.y * 15 < Me.Top + 300 And pos.x * 15 > Me.Left And pos.x * 15 < Me.Left + Me.Width Then
        Me.BorderStyle = 2
        Me.Caption = Me.Caption
    Else
        Me.BorderStyle = 0
        Me.Caption = Me.Caption
    End If
End Sub

标签： vb6