Option Strict On
Option Explicit On
 
Public Class Form1
 
    Inherits System.Windows.Forms.Form
 
    '// Designerregion
 
    Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Move
        Me.Label1.Text = Me.Location.ToString()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        '// move the form
        While (Me.Location.X < 300 AndAlso Me.Location.Y < 300)
            Me.MoveTo(Me.Location.X + 1, Me.Location.Y + 1)
        End While
        'While (Me.Location.X < 300)
        '    Me.MoveXTo(Me.Location.X + 1)
        'End While
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        '// startlocation
        Me.Location = New Point(0, 0)
    End Sub
 
    Public Sub MoveXTo(ByVal x As Integer)
        Me.MoveTo(New Point(x, Me.Location.Y))
    End Sub
 
    Public Sub MoveYTo(ByVal y As Integer)
        Me.MoveTo(New Point(Me.Location.X, y))
    End Sub
 
    Public Sub MoveTo(ByVal x As Integer, ByVal y As Integer)
        Me.MoveTo(New Point(x, Y))
    End Sub
 
    Public Sub MoveTo(ByVal Location As Point)
        Me.Location = Location
        Me.Refresh()
    End Sub
 
End Class