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


 
  




 Autor
 Autor
		


 En línea
									En línea
								








