Nesneler çevrelerine çizilecek çizgilerle 3D hale getirilebilir
Sub 3DKontrol(frm As Form, Ctl As Control)
' Sub kontroller etrafına çizgiler çizerek onların 3d görünmelerini saglar
' koyugri, üst - yatay
frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _
Ctl.Width, Ctl.Top - 15), &H808080, BF
'...