// Tu variable 'pass' en el FOR es lo que recorrerá el índica entre corchetes de cada elemento del arreglo. 
 
a[0] = 2 
a[1] = 6
a[2] = 4
a[3] = 8
a[4] = 10
a[5] = 12
a[6] = 89
a[7] = 68
a[8] = 45
a[9] = 37

// El método de la burbuja, se trata de comparar elementos de dos en dos. Por eso el IF está escrito así: 

if (a[pass] > a[pass]+1) 

// Teniendo en consideración que ''pass'' empezará en 0 y preguntará si éste, es mayor a ''pass (0) +1'', es decir, 1. 
// Recuerda que éstos solamente son el incremento de los indices. Lo que en realidad está comparando es si ''a[0] = 2 > a[1] = 6''.

// Como en los primeros dos elementos, la condición no se cumple, pasa a los siguientes dos; es decir: ''a[1] = 6 > a[2] = 4''. 

// En este caso, la condición del IF sí se cumple. Entonces, aquí necesitamos una variable auxiliar, que guardará el valor previo del elemento del arreglo que vamos a intercambiar, porque si no lo hacemos así, entonces éste valor se perdería. 

// Así, tenemos que ''a[1] = 6'' será asignado a tu varible ''hold'', quedando así: ''hold = 6''. Ahora, lo que se hace después, es asignarle el valor de ''a[2] = 4'', a ''a[1] = 6'', teniendo ahora que ''a[1] = 4''. Y el valor que le otorgamos a ''hold'' en un principio, será el nuevo valor que tomará ''a[2]'', siendo ''a[2] = 6''. Quedando así, ordenado de forma ascendente. 

// Lo mismo hará con todos los elementos del arreglo. 

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