Friend Shared SRandA(3) As Single
    Friend Shared SRandLogicA(3) As Single
 
    Private Sub Test()
        SRandA = {2.7, 0.7, 0.75, 0.7}
 
        For Each s As Single In SRandLogicA
            Debug.WriteLine(s)
        Next
 
        SRandLogicA(0) = SRandA(1)
        SRandLogicA(1) = SRandA(0)
        SRandLogicA(2) = SRandA(3)
        SRandLogicA(3) = SRandA(2)
 
        For i As Integer = 0 To 3
            Debug.WriteLine(SRandA(i) & " " & SRandLogicA(i))
        Next
    End Sub

0
0
0
0
2,7 0,7
0,7 2,7
0,75 0,7
0,7 0,75

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist