Public Class Form1
    Private Sub ButnRight_Click(sender As Object, e As EventArgs) Handles butnRight.Click
        pboxObject.Left = pboxObject.Left + 5
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub ButnLeft_Click(sender As Object, e As EventArgs) Handles butnLeft.Click
        pboxObject.Left -= 5
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub ButnUp_Click(sender As Object, e As EventArgs) Handles butnUp.Click
        pboxObject.Top = pboxObject.Top - 5
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub ButnDown_Click(sender As Object, e As EventArgs) Handles butnDown.Click
        pboxObject.Top = pboxObject.Top + 5
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub ButnReset_Click(sender As Object, e As EventArgs) Handles butnReset.Click
        pboxObject.Left = 300
        pboxObject.Top = 100
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lablLeftDist.Text = pboxObject.Left
        lablTopDist.Text = pboxObject.Top
    End Sub
End Class