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