Private ReadOnly roi As Integer
    Public Sub New()
        roi = 33 ' geht
    End Sub
    Private Sub Test() 
        roi = 44 ' geht nicht
    End Sub

Const Pi As Double = 3.14159

________
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