Private
Sub
Image1_MouseMove(
ByVal
Button
As
Integer
,
ByVal
Shift
As
Integer
,
ByVal
X
As
Single
,
ByVal
Y
As
Single
)
Label1.Top = Y + Image1.Top
Label2.Left = X + Image1.Left
End
Sub
Private
Sub
Label1_MouseMove(
ByVal
Button
As
Integer
,
ByVal
Shift
As
Integer
,
ByVal
X
As
Single
,
ByVal
Y
As
Single
)
Label2.Left = X + Label1.Left
End
Sub
Private
Sub
Label2_MouseMove(
ByVal
Button
As
Integer
,
ByVal
Shift
As
Integer
,
ByVal
X
As
Single
,
ByVal
Y
As
Single
)
Label1.Top = Y + Label2.Top
End
Sub
Private
Sub
UserForm_Activate()
UserForm_Resize
End
Sub
Private
Sub
UserForm_Resize()
Label1.Height = 1
Label1.Left = Image1.Left
Label1.Width = Image1.Width
Label2.Width = 1
Label2.Top = Image1.Top
Label2.Height = Image1.Height
End
Sub