Get the zero(origo) point in Ovalshape

[R1Programmer]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OvalShape1.BringToFront()
        Timer1.Enabled = True
    End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 OvalShape1.Anchor = AnchorStyles.None
 OvalShape1.Width = Val(OvalShape1.Width) - 1 'OK,Ovalshape decreases when timer enabled
 OvalShape1.Height = Val(OvalShape1.Height) - 1 'OK -||-
 Label3.Text = OvalShape1.Width * 0.026458333 * 10000 'Get ovalshape width in micron, OK
 Label4.Text = OvalShape1.Height * 0.026458333 * 10000 'Get ovalshape height in mic., OK
////////////////////////////////
'Here I need help to continue. It ´s not good >>
 I need the ovalshape zero,center(origo) point is fixed
 when my ovalshape´s decreases. 
 Please look the  picture in attachment to understand it.
 I want my ovalshape 0point in X1 and Y1
 OvalShape1.Location = New Point(Val(OvalShape1.Location) +Val(OvalShape1.Location) / 2)
     
    End Sub