Effect3D (3)

Private Sub Form_Load()
Crea3D Me
End Sub

Public Function Crea3D(frm As Form)
Dim Spazio As Integer
Dim Bordo As Integer
With frm
.AutoRedraw = True
Bordo = 1
Spazio = 10
.DrawWidth = Bordo
'right

frm.Line (.Width - (Spazio * 2), Spazio)-(.Width - (Spazio * 2), .Height - Spazio), vbButtonShadow
frm.Line (.Width - Spazio, 0)-(.Width - Spazio, .Height), vb3DDKShadow
'bottom

frm.Line (Spazio, .Height - (Spazio * 2))-(.Width - Spazio, .Height - (Spazio * 2)), vbButtonShadow
frm.Line (0, .Height - Spazio)-(.Width, .Height - Spazio), vb3DDKShadow
'top

frm.Line (0, 0)-(.Width, 0), vb3DHighlight
frm.Line (Spazio, Spazio)-(.Width - Spazio, Spazio), vb3DLight
'left

frm.Line (0, 0)-(0, .Height), vb3DHighlight
frm.Line (Spazio, Spazio)-(Spazio, .Height - Spazio), vb3DLight
End With
End Function

'******************************************************

'Fine Procedura.

'******************************************************