Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Static fHeight As Boolean    On Error Resume Next    If Button = 0 Then        If Y > Me.Height - 100 And Y < Me.Height + 100 Then            If Not fHeight Then                Screen.MousePointer = 7                fHeight = True            End If        Else            If fHeight Then                Screen.MousePointer = 0                fHeight = False            End If        End If    ElseIf Button = 1 And fHeight Then        Me.Height = Y    End IfEnd Sub