Simple 3D Text on a Form
Here is some simple code that makes the printed text look sorta 3d, with no OCX or API.
Private Sub Form_Load()
Dim ShadowX
Dim ShadowY
'Clear Form1
Form1.ScaleMode = 3 'Set Scalemode to pixel
Form1.ForeColor = vb3DShadow 'Change the Forecolor of
'Form1 to Shadow Color (Dark grey)
ShadowY = 5 'Set The Top of the Shadow
ShadowX = 5 'Set The Left of the Shadow
For I = 0 To 5
CurrentX = ShadowX + I
CurrentY = ShadowY + I
If I = 5 Then Form1.ForeColor = vbWhite 'Change the Color to White
Form1.Print "Text in 3D. No VBX/OCX/API!"
Next
End Sub
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.