Public Class cVERAG_InterfaceSharedObjects Property FTP_Path As String = "" Property CooName As String = "" Sub New(FTP_Path, CooName) Me.FTP_Path = FTP_Path Me.CooName = CooName End Sub End Class Public Class cVERAG_Interface_Settings Property acticeInterface_OREGON As Boolean = True Property acticeInterface_TOBB As Boolean = True Property acticeInterface_EKOL As Boolean = True Property acticeInterface_TEST As Boolean = True Property acticeInterface_VERAG As Boolean = True Property acticeInterface_IMEX As Boolean = True Property acticeInterface_GASTONSCHUL_OUT As Boolean = True End Class