Jobs
Author: Binson007 Date Submitted: 12/31/2007 Category: Forms Compatibility: .NET,VB 6 This code has been accessed 4342 times.
Email Yourself this snippet:
'no declaration just insert 4 lines and one time and line boarder style =2(dashed)
Code
Private Sub Form_Load() Line1.Visible = False Line2.Visible = True Line4.Visible = False Line3.Visible = False End Sub Private Sub Timer1_Timer() If Line2.Visible = True Then Line2.Visible = False Line1.Visible = True Line4.Visible = False Line3.Visible = False Else If Line1.Visible = True Then Line2.Visible = False Line1.Visible = False Line4.Visible = True Line3.Visible = False Else If Line4.Visible = True Then Line2.Visible = False Line1.Visible = False Line4.Visible = False Line3.Visible = True Else If Line3.Visible = True Then Line2.Visible = True Line1.Visible = False Line4.Visible = False Line3.Visible = False End If End If End If End If End Sub