Private Sub Form_Load()
Text3D "Hallo", "Times New Roman", 26, 1500, 200, 100, 146, 16, 46 End Sub Public Sub Text3D(Strng As String, Fnt As String, Font_size As Integer, XVal As Integer, YVal As Integer, Depth As Integer, Redcol As Integer, Greencol As Integer, Bluecol As Integer) Form1.AutoRedraw = True Form1.FontSize = Font_size Form1.Font = Fnt Form1.ForeColor = RGB(Redcol, Greencol, Bluecol) ShadowY = YVal ShadowX = XVal For i = 0 To Depth Form1.CurrentX = ShadowX - i Form1.CurrentY = ShadowY + i If i = Depth Then _ Form1.ForeColor = RGB(Redcol + 80, Greencol + 80, Bluecol + 80) Form1.Print Strng Next i Form1.AutoRedraw = False End Sub |