German Wieso werden die Routinen von unten nach oben abgearbeitet?

Sub Show
    Scv.Panel.RemoveAllViews
    Scv.Panel.Height = 300dip * Bitmaps.Size
    For i = Bitmaps.Size - 1 To 0 Step -1

Sub FotoAnzeigen
    Private bmp As Bitmap = LoadBitmap(Verz,MyText.Bild)
    Private FotoB, FotoH As Int
    Dim ScaleX, ScaleY As Int
    Dim BW, BH As Double
    Dim SF,BF As Float
    ScaleX= 100%x
    ScaleY=100%y
    SF=ScaleX/ScaleY                               '  Seitenverhältnis des Mobilteils
    BF=bmp.Width/bmp.Height              '   Seitenverhältnis des Bildes
    BW=  bmp.Width
    BH=bmp.Height
    If SF>1 Then                                  
        If BF>1 Then                              
            FotoH=100%y
            FotoB =ScaleY* BW / BH
        Else
            FotoB= 100%y
            FotoH = 100%x * BW/ BH
        End If
    Else
        If BF>1 Then
            FotoB= 100%x
            FotoH = 100%x / BF
        Else
            FotoH=100%y
            FotoB =ScaleY* BW / BH
        End If
    End If
    bmpFoto = xui.LoadBitmapResize(Verz,MyText.Bild , FotoB, FotoH,True)
    Imv.SetBitmap(bmpFoto)
    Imv.Left = 1dip
    Imv.Top = 1dip
    Imv.Width = FotoB
    Imv.Height = FotoH
End Sub