Confused and need help

[code_monkey]

I'm have some problems understanding what to write for the shift(). I know that the when the pic is clicked it takes the gradient stored and uses that with X_move to redraw the pic on a slope. The concept is that the shift will move the pic to the other side of the form and when the pic gets there it will come back. The reset function also has be stumped. I believe the idea is that I need to assign a const to picClick.left and then recall it in the btnRes? I'm rather confused! Any help would be appreciated.

Public Class frmPointAndClick
    Private Const START_LEFT As Integer = 0
    Private Const _UP As Integer = -1
    Private Const _DOWN As Integer = 1
    Private Const _LEFT As Integer = -1
    Private Const _RIGHT As Integer = 1
    Private Const V_OFFSET As Integer = 34
    Private Const H_OFFSET As Integer = 8
    Private Const X_MOVE As Integer = 5

    Private Start_top As Integer = 0
    Private absBottom As Integer = 0
    Private absRight As Integer = 0
    Private angle As Integer = 0
    Private Y_move As String = 0
    Private X_direction As Integer = _RIGHT
    Private Y_direction As Integer = _UP
    

    '-----------------------------------------------------------------------------------
    '   sets the boundaries and locations
    '-----------------------------------------------------------------------------------
    Private Sub reset()
        absRight = Me.Width - PicClick.Width - H_OFFSET
        absBottom = Me.Height - grpAim.Height - PicClick.Height - V_OFFSET
        Start_top = absBottom \ 2
        grpAim.Top = Me.Height - grpAim.Height - V_OFFSET
        PicClick.Left = START_LEFT
        PicClick.Top = Start_top
    End Sub


    '-----------------------------------------------------------------------------------
    '   sets angle and direction
    '-----------------------------------------------------------------------------------
    Public Sub setAngle(ByVal Y_move_in As Integer, _
                         ByVal Y_direction_in As Integer, _
                         ByVal X_direction_in As Integer)

        Y_move = Y_move_in
        Y_direction = Y_direction_in
        X_direction = X_direction_in
    End Sub


    '-----------------------------------------------------------------------------------
    '  Moves the picture one unit in the proper direction
    '      X_MOVE * x_direction; Y_move * Y_direction  
    '-----------------------------------------------------------------------------------
    Public Sub shift()

    End Sub

    Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles BtnExit.Click
        Me.Close()
    End Sub

    Private Sub PicClick_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles PicClick.Click
        shift()

    End Sub

    Private Sub radbtn1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn1.CheckedChanged
        Y_move = 5
    End Sub

    Private Sub radbtn2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn2.CheckedChanged
        Y_move = 4
    End Sub

    Private Sub radbtn3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn3.CheckedChanged
        Y_move = 3
    End Sub

    Private Sub radbtn4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn4.CheckedChanged
        Y_move = 2
    End Sub

    Private Sub radbtn5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn5.CheckedChanged
        Y_move = 1
    End Sub

    Private Sub radbtn6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn6.CheckedChanged
        Y_move = 0
    End Sub

    Private Sub radbtn7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn7.CheckedChanged
        Y_move = -1
    End Sub

    Private Sub radbtn8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn8.CheckedChanged
        Y_move = -2
    End Sub

    Private Sub radbtn9_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn9.CheckedChanged
        Y_move = -3
    End Sub

    Private Sub radbtn10_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn10.CheckedChanged
        Y_move = -4
    End Sub

    Private Sub radbtn11_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles radbtn11.CheckedChanged
        Y_move = -5
    End Sub
End Class