Hover over userform

[Av8tordude]

I have a code that reduces the size and resize the useform back to the height default when i hover over my userform. Is there a way to reduce the size of my userform when I move away from the userform (i.e. cursor is not hovering over the userform)?

Dim dHeight As Double

dHeight = 426
With Me
    If .Height = dHeight Then
        .Height = dHeight / 8
        .Top = Abs(Application.Top) + (Application.Height) - (Me.Height + 10)
        .Left = Abs(Application.Left) + (Application.Width) - (Me.Width + 10)
    Else
        .Height = 426
        .Top = Application.Top + Application.Height / 2 - .Height / 2
        .Left = Application.Left + Application.Width / 2 - .Width / 2
    End If
End With

 

[Yongle]

An alternative would be to
- add another object (here Label1)
- use Label1 mousemove to shrink userform
- use userform mousemove to reinstate userform

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'code posted above goes here
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'code to reinstate to correct size goes here
End Sub

 

[Av8tordude]

I consider that, but I have seven objects can be clicked to perform a task. i rather not have a need to click an object to minimize or maximize the userform unless I performing a task using one of the objects

Currently, when i click an object on the useform, the userform is minimized. When I need to perform another task, I hover over the userform to maximize the userform. If Ii don't click an object, but move away from the userform, i want the userform to minimized

 

[Yongle]

i rather not have a need to click an object to minimize or maximize the userform

puzzled by your comment have you tried my solution?

 

[Av8tordude]

ok...base on your suggestion (good idea), I increase the label length to the same size of the userform so that way I don't have to go to a specific spot on the useform to minimize it. i did the same thing at the top of the userform as well to maximize the form.

Thank you for the suggestion and the help

 

[Yongle]

that's the idea
Make the objectt big enough to be useful ... BUT ... place it somewhere where you will not move the moue by accident! Otherwise it will be very annoying for you.

 

[Av8tordude]

I placed it at the edge of the useform. All other objects are in the middle of the userform. That way if I need to minimize the userform, I have to purposely move the cursor to the edge of the userform. ??