• Home
 · 
• Miscellaneous
 · 
• Sample animation (it's your choice for application)

Sample animation (it's your choice for application)

Sample animation (it's your choice for application)

API Declarations


-create a form
-a button, with a "Start" Caption
-a label




Rate Sample animation (it's your choice for application)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub Command3_Click()
Dim txtpos As Integer
Dim backpos As Integer

	x = 0
If Command3.Caption = "Start" Then
		
	Command3.Caption = "Stop"

10:
	If x = 1 Then
		Text0.Left = Text0.Left
		Exit Sub
		End If

	For txtpos = 1 To 1000 Step 0

    		DoEvents
    		Text0.Left = Text0.Left + 10

        	If Text0.Left = 9785 Then
        		GoTo 20
        	End If

	Next txtpos

20:
    
	For backpos = 1 To 1000 Step 0
                
		DoEvents
                Text0.Left = Text0.Left - 10

	        If Text0.Left = 185 Then
            		GoTo 10
            		Exit For
        	End If
        
    	Next backpos
   	
End If
    
If Command3.Caption = "Stop" Then

    Command3.Caption = "Start"
    x = 1

End If

End Sub

______________________
'Optional

Private Sub Form_Load()
Dim name

	name = InputBox("Insert a 6 letter name")
	Text0.Caption = name

End Sub

*****************************************
Enroll now at Olongapo City Colleges	**	
*****************************************