Estoy tratando de mover un Label dentro de las dimensiones de un Form, con el siguiente código pero estoy obteniendo un error de que debe ser un valor positivo en la parte de r.Next...
Código
Dim r As New Random() Dim x As Integer = r.Next(Me.ClientRectangle.Height - Label1.Width) Dim y As Integer = r.Next(Me.ClientRectangle.Height - Label1.Height) Dim p As New Point(x, y) Me.Label1.Location = p End If
Gracias cualquier ayuda..
Salu2