Each object of a class should be master of its own data!
ferrari AS CCar porsche AS CCar STATIC PUBLIC SUB Main() hForm AS Fmain hForm = NEW Fmain hForm.show END PUBLIC SUB _new() ferrari = NEW CCar("ferrari", 430, 150000.56) porsche = NEW CCar porsche.setBrand("porsche") porsche.setPS_Power(300) porsche.setPrice(100345.72)'the following does not work!
END PUBLIC SUB Button1_Click() Label1.Text = ferrari.getBrand() END PUBLIC SUB Button2_Click() TextLabel1.Text = Str(ferrari.getPS_Power()) & " PS <br>" & Str(ferrari.getKW_Power()) & " KW" END PUBLIC SUB Button3_Click() TextLabel2.Text = Str(ferrari.getPrice()) & " €" END '------------------------------------------ PUBLIC SUB Button4_Click() Label4.Text = porsche.getBrand() END PUBLIC SUB Button5_Click() TextLabel3.Text = Str(porsche.getPS_Power()) & " PS <br>" & Str(porsche.getKW_Power()) & " KW" END PUBLIC SUB Button6_Click() TextLabel4.Text = Str(porsche.getPrice()) & " €" END