das würde gehen mit eingrenzen

Code:
        Dim random As New System.Random
        Button1.Location = New Point(random.Next(10, Me.Size.Height - 50), random.Next(10, Me.Size.Width - 50))