Dim Head As New Round 13.2. листингісінде Round класы, объект кластарын қолдану арқылы аққала құру программалық кодтары келтірілген. 13.12. суретте берілген кодтың жұмыс істеуі келтірілген.
1.12 сурет. Round объект класы арқылы аққала салу.
1.2 листингісі Round объект кластарын қолдану арқылы аққала құру программалық кодтары.
Private Sub Form_Load() Dim Head As New Round Dim Body As New Round Dim Foot As New Round ' Қасиеттерін орнату Head.X = 100: Head.Y = 50
Head.R = 20 Head.Color = vbBlue Body.X = 100: Body.Y = 100 Body.R = 30 Body.Color = vbBlue Foot.X = 100: Foot.Y = 170 Foot.R = 40 Foot.Color = vbBlue 1Аққаланы салу Head.Draw Body.Draw Foot.Draw End Sub Visual Basic құрғыштары арқылы класстарды құру принциптері көрсетілді.
Объект типі. Жоғарыда көрсетілгендей, кез келген объект Visual Basic немесе қолданбалы класс болсын, әйтеуір белгілі бір классқа жатады. Кейде программаның жұмыс істей барысында классты анықтау қажеттілігі туады. Бұл қажеттілік орын алмастыру процесінде өзекті мәселелердің біріне айналып келеді.
Қай классқа жататындығын анықтау үшін, келісімді құрушы оператордың If ...End If: көмегі керек болады: