¿Cómo aplicar un FOR?

Buen día a todos.

Soy un programados principiante en VB.Net. No tengo mucho conocimiento en POO. Sin embargo, me enganché en hacer un pequeño videojuego para excentar la materia como proyecto final, y la verdad he tenido ciertos problemas.

Es un juego simple de ''Tiro al Arco''. Todo sale perfectamente. Puedo impactar en las distintas zonas del blanco y abonar puntos, pero para que el juego esté perfecto, la recomendación de mi profesor, fue que hiciera que el blanco se moviera después de cada impacto; es decir, que tomara nuevas posiciones.

Para dibujar el primer blanco, utilicé el código que está abajo y tomando eso como referencia, supuse que para mover el blanco de lugar después de cada impacto, tendría que aplicarle un for a los argumentos de la variable ''DrawEllipse'', pero al parecer, no se puede.

¿Alguno de ustedes tiene alguna recomendación?.

Muchas gracias.

Código:

Private Sub Dibujar_blanco()

        Dim Pluma As New Drawing.Pen(Color.Blue, 6)
        Dim p_ori_s As clsPunto, p_fin_s As clsPunto
        Dim p_ori As New clsPunto, p_fin As New clsPunto
        Dim XX1 As Single, YY1 As Single, XX2 As Single, YY2 As Single

        p_ori.p_X = Me.Escala_X2
        p_fin.p_X = Me.Escala_X2
        p_ori.p_Y = 0.7
        p_fin.p_Y = -0.7
        p_ori_s = convertir_fis_sys(p_ori)
        p_fin_s = convertir_fis_sys(p_fin)
        XX1 = Int(p_ori_s.p_X)
        YY1 = Int(p_ori_s.p_Y)
        XX2 = Int(p_fin_s.p_X)
        YY2 = Int(p_fin_s.p_Y)
        Me.pbxMain.CreateGraphics.DrawLine(Pluma, XX1, YY1, XX2, YY2)
        Pluma.Dispose()


        p_ori.p_X = Me.Escala_X2
        p_fin.p_X = Me.Escala_X2
        p_ori.p_Y = 0.3
        p_fin.p_Y = -0.3
        p_ori_s = convertir_fis_sys(p_ori)
        p_fin_s = convertir_fis_sys(p_fin)
        XX1 = Int(p_ori_s.p_X)
        YY1 = Int(p_ori_s.p_Y)
        XX2 = Int(p_fin_s.p_X)
        YY2 = Int(p_fin_s.p_Y)
        Pluma = New Drawing.Pen(Color.Red, 6)
        Me.pbxMain.CreateGraphics.DrawLine(Pluma, XX1, YY1, XX2, YY2)
        Pluma.Dispose()



        p_ori.p_X = Me.Escala_X2
        p_fin.p_X = Me.Escala_X2
        p_ori.p_Y = 0.15
        p_fin.p_Y = -0.15
        p_ori_s = convertir_fis_sys(p_ori)
        p_fin_s = convertir_fis_sys(p_fin)
        XX1 = Int(p_ori_s.p_X)
        YY1 = Int(p_ori_s.p_Y)
        XX2 = Int(p_fin_s.p_X)
        YY2 = Int(p_fin_s.p_Y)
        Pluma = New Drawing.Pen(Color.Yellow, 6)
        Me.pbxMain.CreateGraphics.DrawLine(Pluma, XX1, YY1, XX2, YY2)
        Pluma.Dispose()


    End Sub