Public Class Form1
 
    Private Sub Form1_Move(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Move
        Me.Text = Me.RectangleToScreen(Me.Button1.Bounds).Location.ToString
    End Sub
End Class