Set Procedure To MeuPrg oMObj = CreateObject("ClasseTeste") oMObj.Teste Messagebox("oMObj.Msg") *** Programa MeuPrg.Prg *** Define Class ClasseTeste As Custom OlePublic Msg = "" Function Teste This.Msg = "Teste com a classe!" EndFunc EndDefine *** Fim do Programa MeuPrg.Prg ***Obs.: Este teste pode ser feito direto na janela de comando do VFP.