Keskustelu: Koodit: VB6: Tekstille varjo

Private Sub Command1_click()
Dim I As Integer 'Luodaan koordinaatit ja looppi..
Dim X As Integer
Dim Y As Integer

Viesti = "Tervehdys" 'Tähän viesti (Tän voi kirjottaa alas ihan suoraan..)*
Me.ForeColor = &H0 'Varjon väri
X = Me.CurrentX 'Laitetaan koordinaatit muistiin varjon jatkoa varten
Y = Me.CurrentY ' ^

Me.FontSize = 19 'Fontin koko

For I = 1 To 25 'Varjon pituus
Print Viesti 'Tulostetaan ylläolevan viestin varjo ja jatketaan määrätty määrä *
X = X + 1 'Lisätään varjolln koordinaattiin yksi lisää seuraavaa varten
Y = Y + 1 ' ^
Me.CurrentX = X 'Otetaan vajon paikka muistista
Me.CurrentY = Y '^
Next I 'Ja loopataan niin monta kertaa kun varjon pituutta löytynee

Me.ForeColor = &HFFFFFF 'Tekstin väri
Print Viesti 'Tulostetaan ylläoleva viesti varjojen päälle *
End Sub