3D-текст на форме

Private Sub Комманда1_Click()
Dim ShadowX
Dim ShadowY

ScaleMode = 3
ForeColor = "&H808080"
ShadowY = 5
ShadowX = 5
For i = 0 To 5
CurrentX = ShadowX + i
CurrentY = ShadowY + i
If i = 5 Then Form1.ForeColor = vbWhite
Form1.Print "3D Text!!!"
Next
End Sub

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "3D-текст на форме", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!