AYUDAAAA Cambiar Tamaño

Hola EDUARDO, a ver intenta con esto:

Dim LLEGO As Boolean = False
Dim X As Integer = 0
Private Sub Label6_MouseClick(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseClick
LLEGO = Not LLEGO
X = e.Location.X + Label6.Width
End Sub

Private Sub Label6_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
Label6.MouseMove
If LLEGO = True Then
If e.Location.X >= X Then
Label6.Width += Label6.Width + e.X - X
Else
Label6.Width += X - Label6.Width + e.X
End If
End If
End Sub

quiza no este tan exacto como lo que quieres pero te puede servir, solo
que tienes que hacer es jugar con las coordenadas y el ampliar o
disminuir el tamaño al label.

Ing. Sócrates Benaute Laiza
TRUJILLO - PERU