>Hi, Hilmar Zonneveld, and thank you.
>Please Define a new Class at Visual Foxpro and Use at one Program.
>simple example,only,only.
>thanks a lot.

oO = createobject("MyClass")

oO.SaySomething()

oO.cMessage = "Pong!"
oO.SaySomething()

return

define class MyClass as Custom

cMessage = "Ping!"

function SaySomthing
  wait window (this.cMessage)
return

enddefine