Public Function Potenz2(ByVal A As Integer) As Decimal
        Dim dc As Decimal
        If A = 0 Then dc = 1 : Return dc
 
        dc = 2D
        For i As Integer = 2 To A
            dc *= 2D
        Next i
        Return dc
    End Function