3D текст на форме: исправить код - VB

Формулировка задачи:

на сайте нашел программу для 3D текста, но у меня пишет ошибку, помогите решить заранее благодарен 1) программа для 3D 'Установите свойство формы AutoRedraw как True

    Private Sub Form_Load()   
    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

2) ошибка в приложении

Решение задачи: «3D текст на форме: исправить код»

textual
                            Листинг программы 
                        
                            Dim a as integer