Contoh source code VB 6 untuk mendemokan penggunaan class