'Definicja klasy:
class COsoba
	'Definicja pól prywatnych:
	private m_imie
	private m_nazwisko
	private m_wiek
	
	'Metoda wywoływana podczas tworzenia obiektu
	private sub class_initialize()
		m_imie = "Adam"
		m_nazwisko = "Kowalski"
		m_wiek = 45
	end sub
	'Metoda wywoływana podczas usuwania obiektu
	private sub class_terminate()
	end sub
	'Metoda zwracająca pole m_imie:
	public function getImie()
		getImie = m_imie
	end function
	'Metoda przypisująca nową wartość do pola m_imie:
	public sub setImie(in_newImie)
		m_imie = in_newImie
	end sub
end class

'Tworzenie instancji obiektu:
Dim Osoba1: Set Osoba1 = new COsoba
osoba1.setImie "Pola"
msgbox osoba1.getImie