CodeItBetter Programming Another VB Programming Blog

'Controls - How to Make 3D Controls

Option Explicit
 
'Add a Command Button and a Text Box to your form.

Public Sub ThreeDControl(Ctrl As Control, nBevel%, nSpace%, bInset%)
    PixX% = Screen.TwipsPerPixelX
    PixY% = Screen.TwipsPerPixelY
    With Ctrl
        CTop% = .Top - PixX%
        CLft% = .Left - PixY%
        CRgt% = .Left + .Width
        CBtm% = .Top + .Height
        If bInset% Then
            For I% = nSpace% To (nBevel% + nSpace% - 1)
                AddX% = I% * PixX%
                AddY% = I% * PixY%
                .Parent.Line (CLft% - AddX%, CTop% - AddY%)-(CRgt% + AddX%, CTop% - AddY%), &H808080
                .Parent.Line (CLft% - AddX%, CTop% - AddY%)-(CLft% - AddX%, CBtm% + AddY%), &H808080
                .Parent.Line (CLft% - AddX%, CBtm% + AddY%)-(CRgt% + AddX% + PixX%, CBtm% + AddY%), &HFFFFFF
                .Parent.Line (CRgt% + AddX%, CTop% - AddY%)-(CRgt% + AddX%, CBtm% + AddY%), &HFFFFFF
            Next I
        Else
            For I% = nSpace% To (nBevel% + nSpace% - 1)
                AddX% = I% * PixX%
                AddY% = I% * PixY%
                .Parent.Line (CRgt% + AddX%, CBtm% + AddY%)-(CRgt% + AddX%, CTop% - AddY%), &H808080
                .Parent.Line (CRgt% + AddX%, CBtm% + AddY%)-(CLft% - AddX%, CBtm% + AddY%), &H808080
                .Parent.Line (CRgt% + AddX%, CTop% - AddY%)-(CLft% - AddX% - PixX%, CTop% - AddY%), &HFFFFFF
                .Parent.Line (CLft% - AddX%, CBtm% + AddY%)-(CLft% - AddX%, CTop% - AddY%), &HFFFFFF
            Next I
        End If
    End With
End Sub
 
Private Sub Command1_Click()
    'To Make the Text1 text box control to 3D
    Call ThreeDControl(Text1, 1, 0, True)
End Sub