Call Grow("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
End Sub
Private Sub Command10_Click()
Call TxtTop("aa", ".0005", 1, Middle, Picture1)
End Sub
Private Sub Command11_Click()
If Command11.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command11.Caption = "Stop Loop"
Command11.Caption = "Start Loop"
End If
Do Until Command11.Caption = "Start Loop" 'Start Loop, Stop looping if the button says Start Loop
Call TxtBottom("aa", ".0001", 1, Middle, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
Call TxtTop("aa", ".0001", 1, Middle, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
Loop 'Loop to beginnning
End Sub
Private Sub Command12_Click()
If Command12.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command12.Caption = "Stop Loop"
Command12.Caption = "Start Loop"
End If
Do Until Command12.Caption = "Start Loop" 'Start loop, Stop looping if the button says Start Loop
Call TxtDiagTopRight("aa", ".005", Picture1)
Call TxtDiagTopLeft("aa", ".005", Picture1)
Loop 'Loop to beggning
End Sub
Private Sub Command13_Click()
Call TxtDiagTopRight("aa", ".005", Picture1)
End Sub
Private Sub Command14_Click()
Call TxtDiagTopLeft("aa", ".005", Picture1)
End Sub
Private Sub Command2_Click()
Call Shrink("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
End Sub
Private Sub Command3_Click()
If Command3.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command3.Caption = "Stop Loop"
Command3.Caption = "Start Loop"
End If
Do Until Command3.Caption = "Start Loop" 'Start loop, Stop looping if the button says Start Loop
Call Grow("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
Call Shrink("aa", 72, 8, "0.0001", Picture1) '(The Text you want to show, The Maximum font size you want, The minimum font size you want, The Pause between changing font sizes, The picture box you want it to show up in)
Loop 'Loop to beginning
End Sub
Private Sub Command4_Click()
Call TxtRight("aa", ".0001", 1, Bottom, Picture1) '(The Text you want to show, The pause between the increments, the increment of movement, the possition of the y axis, top bottom or middle, The picture box you want it to show up in)
End Sub
Private Sub Command5_Click()
Call TxtLeft("aa", ".0001", 1, Bottom, Picture1) '(The Text you want to show, The pause between the increments, the increment of movement, the possition of the y axis, top bottom or middle, The picture box you want it to show up in)
End Sub
Private Sub Command6_Click()
If Command6.Caption = "Start Loop" Then 'If..Else..End If block to change the button caption to stop the loop
Command6.Caption = "Stop Loop"
Command6.Caption = "Start Loop"
End If
Do Until Command6.Caption = "Start Loop" 'Start loop, Stop looping if the button says Start Loop
Call TxtRight("aa", ".0001", 1, Bottom, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
Call TxtLeft("aa", ".0001", 1, Bottom, Picture1) '(The Text, The Pause, the increment of movement, the possition of the y axis, top bottom or middle, the picturebox)
(.txt)