Koodit: VB6: Kirjainten järjestely -efekti

Dim teksti As String
Dim tekstit() As Double 'oikeat paikat
Dim tekstin() As Double 'aloituspaikat
Dim tekstis() As Double 'yhden pykälän siirtymä
Dim pykalat As Integer

Private Sub Form_Activate()
    Jarjestele
End Sub
Sub Jarjestele()
    For k = 1 To pykalat
        Cls
        For i = 1 To Len(teksti)
            For j = 1 To 2
                tekstin(i, j) = tekstin(i, j) + tekstis(i, j)
            Next
            CurrentX = tekstin(i, 1)
            CurrentY = tekstin(i, 2)
            Print Mid$(teksti, i, 1)
        Next
        a = Timer
        Do 'hidastesilmukka
        If Timer - a > 0 Then Exit Do
        DoEvents
        Loop
    Next
End Sub
Private Sub Form_Load()
    Width = 6000
    Height = 6000
    Randomize
    FontSize = 18
    FontName = "verdana"
    teksti = "Ohjelmointiputka" 'piirrettävä teksti
    ReDim tekstit(Len(teksti), 2)
    ReDim tekstin(Len(teksti), 2)
    ReDim tekstis(Len(teksti), 2)
    vx = 500 'tekstin x
    vy = 500 'tekstin y
    pykalat = 100 'mitä pienempi sen nopeammin kirjaimet järjestyvät

    For i = 1 To Len(teksti)
        tekstit(i, 1) = vx
        tekstit(i, 2) = vy
        tekstin(i, 1) = Int(Rnd * Width)
        tekstin(i, 2) = Int(Rnd * Height)
        tekstis(i, 1) = (tekstit(i, 1) - tekstin(i, 1)) / pykalat
        tekstis(i, 2) = (tekstit(i, 2) - tekstin(i, 2)) / pykalat
        vx = vx + TextWidth(Mid$(teksti, i, 1))
    Next
End Sub