Agradesco a quienes se ayan interesado en solucionar mi problema
Para quien tenga un problema similar le envio el codigo que genere
Dim dm As Boolean
Dim x0, y0, w0
Private Sub Form_Load()
dm = False
End Sub
Private Sub lblDia_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MousePointer = 9 Then
dm = True
End If
End Sub
Private Sub lblDia_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 0 Then Exit Sub
If dm Then
lblDia.Width = X + w0
If lblDia.Width < 300 Then
lblDia.Width = 300
ElseIf lblDia.Width > 500 Then
lblDia.Width = 500
End If
Exit Sub
End If
If X >= lblDia.Width - 90 Then
MousePointer = 9
w0 = lblDia.Width - X
Else
MousePointer = 0
End If
End Sub
