Visual Basic - mover con el mouse un label

Hola, tengo el siguiente problema:

Option Explicit
Dim xpos As Integer
Dim ypos As Integer
Private Sub lblmove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'posiciones de label movible


xpos = X

ypos = Y
End Sub

Private Sub lblmove_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'si se presiona un boton se puede arrastrar el label

If Button > 0 Then
lblmove.Move lblmove.Left, lblmove.Top + Y - ypos

End If
End Sub
pero como puedo hacer para que cuando lleque a una altura de por ejemplo: lblmove.top=5000 solo se pueda subir el label y si llega a una altura de por ejemplo lblmove.top=3000 solo puede baja (hasta 5000)
Gracias.

Puedes hacer este cambio:

If Button > 0 Then
If lblmove.top + Y - ypos > 5000 Then
lblmove.top = 5000
Else
If lblmove.top + Y - ypos < 3000 Then
lblmove.top = 3000
Else
lblmove.Move lblmove.Left, lblmove.Top + Y - ypos
End If
End If
End If

Saludos
Josetxu