Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim xPos, yPos As Integer
Dim lt, tp As Integer
xPos = Button1.Location.X
yPos = Button1.Location.Y
lt = Button1.Left
tp = Button1.Top
MessageBox.Show("Left = " & lt & " Top = " & tp, "X = " & xPos & " Y = " & yPos)
End Sub