Imports Microsoft.VisualBasic

Public Class VERAG_VARIABLES
    Public Shared errornumb As Integer = 0
    Shared Sub initerrorcount()
        errornumb = 0
    End Sub
    Shared Sub seterrorcount(var As Integer)
        errornumb += 1
    End Sub
    Shared Function geterrornumb() As String
        Return "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString)
    End Function

End Class