formun uzerine 2 command buton ve pictureBox yerleştirin
command 1 butonun adını başla yapın diger command butonun adını ana form yapın
Başla butonuna basıldıgında frmtr isimli yazı aşağı dogru inip harfler yere değince zıplayacaktır

Private Sub Command2_Click()
frmAna.Show
Unload Me
End Sub

Private Sub Command1_Click()
Randomize Timer
Dim Zaman(100)
Dim Hareket(100) As Boolean
Dim Uzaklik As Double
Dim Basla(100) As Double
Dim SonHareket(100) As Boolean
Dim Yuksek(100) As Double
Dim HareketZaman(100) As Double
Dim Kayan(100) As Double
Dim Mesaj As String
Dim Tekrar As Integer
Dim textcolor(100) As ColorConstants
Picture1.ScaleMode = 4
Picture1.FontName = "Arial"
Picture1.BackColor = 5
Picture1.FillColor = 9
Mesaj = "frmtr"
For Tekrar = 1 To Len(Mesaj)
Kayan(Tekrar) = 0.2 + ((Rnd * 15) / 100)
Yuksek(Tekrar) = 0
textcolor(Tekrar) = RGB(70 + Tekrar * 2, 90 + Tekrar * 2, 355)
Next Tekrar
For Tekrar = 1 To Len(Mesaj)
Zaman(Tekrar) = Timer
Next Tekrar
Do
Picture1.Cls
For Tekrar = 1 To Len(Mesaj)
If Hareket(Tekrar) = True Then
Uzaklik = (Yuksek(Tekrar) + (0.7 * 9.89 * ((Timer - Zaman(Tekrar)) ^ 3)))
If Basla(Tekrar) >= Picture1.ScaleHeight - 1 Then SonHareket(Tekrar) = True
Else
Uzaklik = (Yuksek(Tekrar) + (0.3 * 9.89 * (HareketZaman(Tekrar) - (Timer - Zaman(Tekrar))) ^ 7))
If Basla(Tekrar) Picture1.ScaleHeight - 1 Then
Basla(Tekrar) = Picture1.ScaleHeight - 1
End If
Picture1.CurrentX = Picture1.ScaleWidth / 3 - Int((Len(Mesaj) / 3)) + Tekrar
Picture1.CurrentY = Basla(Tekrar)
Picture1.ForeColor = textcolor(Tekrar)
Picture1.Print Mid(Mesaj, Tekrar, 1)
Next Tekrar
DoEvents
For Tekrar = 1 To Len(Mesaj)
If SonHareket(Tekrar) = True Then
If Hareket(Tekrar) = True Then
Hareket(Tekrar) = False
Yuksek(Tekrar) = Yuksek(Tekrar) + ((Picture1.ScaleHeight - Yuksek(Tekrar)) * Kayan(Tekrar))
HareketZaman(Tekrar) = Sqr((Picture1.ScaleHeight - Yuksek(Tekrar)) / (0.5 * 9.81))
Else
Hareket(Tekrar) = True
End If
Zaman(Tekrar) = Timer
SonHareket(Tekrar) = False
End If
Next Tekrar
Loop
End Sub

test edilmiştir calışıyor
__________________