Public class1
 
public sub WerteZurueckgebeb() as class2
 
    dim x as new class2("test",5,True)
 
   return x
 
end sub
 
end class
 
public class2
 
public m_Teststring as string = ""
public m_TestsInteger as integer = 0
public m_TestBool as Boolean = True
 
 
public sub new (Teststring as string, TestInt as integer, TestBool as Boolean)
    m_Teststring  = Teststring 
    m_TestsInteger = TestInt 
    m_TestBool = TestBool 
end sub
 
end class