Text Moving Code(Visual Basic Tutorial - 8)

Create a form with  1 timer .

Add the following code to the form code module for the ‘From1’ _Click event:

Program Code:

Dim tx, ty As Integer

Private Sub Form_Load()

Timer1.Interval = 50

  tx = ScaleWidth

  ty = ScaleHeight / 2

 

End Sub

Private Sub Timer1_Timer()

  ForeColor = BackColor

  FontSize = 22

  FontName = "Arial"

  CurrentX = tx + 10

  CurrentY = ty

  Print "WWW.VBCODEBD.BLOGSPOT.COM"

 

  ForeColor = QBColor(4)

  CurrentX = tx

  CurrentY = ty

  Print "WWW.VBCODEBD.BLOGSPOT.COM"

  tx = tx – 10

End Sub

 by 

Md. Sayemon

BHOLA POLYTECHNIC INSTITUTE