Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button2.Location = New Point(Val(TextBox1.Text), Val(TextBox2.Text)) End Sub End Class
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button2.Location = New Point(Val(TextBox1.Text), Val(TextBox2.Text)) End Sub End Class