Sub 3DKontrol(frm As Form, Ctl As Control)

' Sub kontroller etrafına cizgiler cizerek onların 3d gorunmelerini saglar
' koyugri, ust - yatay
frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _
Ctl.Width, Ctl.Top - 15), &H808080, BF
' koyugri, sol - dik
frm.Line (Ctl.Left - 15, Ctl.Top)-(Ctl.Left - 15, _
Ctl.Top + Ctl.Height), &H808080, BF
' beyaz, sağ - dik
frm.Line (Ctl.Left + Ctl.Width, Ctl.Top)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF
' beyaz, alt - yatay
frm.Line (Ctl.Left, Ctl.Top + Ctl.Height)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF

End Sub

Sub 3DForm(frm As Form)

' Sub Formlar etrafına cizgiler cizerek onların 3d gorunmelerini saglar

' beyaz, ust - yatay
frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF
' beyaz, ust - dikey
frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF
' koyugri, sağ - dikey
frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _
frm.Height), &H808080, BF
' koyugri, alt - yatay
frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, _
frm.ScaleHeight - 15), &H808080, BF

End Sub

'Formun uzerine 1 label ve 1 textbox ekle, formun Form_Load yordamına aşağıdaki kodu yaz

Private Sub Form_Load()

'form'un AutoRedraw propertisini True yap

Me.AutoRedraw = True
3DForm Me
3DKontrol Me, Label1
3DKontrol Me, Text1

End Sub
__________________