Public Enum fieldName
    Single_Curve = 0
    Single_Road = 1
End Enum
 
Public Enum fieldList
    Fieldlist_Left = 0
    Fieldlist_Top = 1
    AllowedDirections = 2
End Enum
 
Private Sub Form_Load()
 
Dim fieldType(1, 2) As Variant
Dim fieldMap(1, 2, 1) As Variant
 
    fieldType(0, 0) = "0"
    fieldType(0, 1) = "1"
    fieldType(0, 2) = "LU UL"
 
    fieldType(1, 0) = "0"
    fieldType(1, 1) = "1"
    fieldType(1, 2) = "UD DU"
 
    fieldMap(0, 0, 0) = Single_Curve
    fieldMap(0, 0, 1) = 270
    fieldMap(0, 1, 0) = Single_Road
    fieldMap(0, 1, 1) = 90
    fieldMap(0, 2, 0) = Single_Curve
    fieldMap(0, 2, 1) = 0
 
    fieldMap(1, 0, 0) = Single_Curve
    fieldMap(1, 0, 1) = 180
    fieldMap(1, 1, 0) = Single_Road
    fieldMap(1, 1, 1) = 90
    fieldMap(1, 2, 0) = Single_Curve
    fieldMap(1, 2, 1) = 90
 
For x = 0 To 2
    For y = 0 To 1
    a = fieldType(fieldMap(y, x, 0), 0)
    b = fieldType(fieldMap(y, x, 0), 1)
    DrawPos a, b, x * 18, y * 18, fieldMap(y, x, 1) ' Fehler ab a
    Next
Next
 
End Sub
 
Function DrawPos(fromLeft As Integer, fromTop As Integer, toX, toY, toDegree)
'...
End Function