• Home
 · 
• Graphics
 · 
• Netscape-like progress bar

Netscape-like progress bar

Netscape-like progress bar

Rate Netscape-like progress bar

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Set X1 = Controls.Add("VB.Shape", "X1")
Set X2 = Controls.Add("VB.Shape", "X2")
Set X3 = Controls.Add("VB.Timer", "X3")
X1.Visible = True
X2.Visible = True
X2.Shape = vbShapeSquare
X1.Shape = vbShapeSquare
X1.Width = X1.Height
X2.Width = X2.Height
X2.Left = 100
X1.BorderColor = vbYellow
X2.BorderColor = vbRed
X3.Interval = 10
X4 = X2.Height
End Sub
Sub X3_Timer()
If X1.Tag = "" Then X1.Left = X1.Left + 100 Else X1.Left = X1.Left - 100
If X2.Tag = "" Then X2.Left = X2.Left + 100 Else X2.Left = X2.Left - 100
If X1.Left >= (Me.Width - X1.Width) Then X1.Tag = " "
If X1.Left <= 0 Then X1.Tag = ""
If X2.Left >= (Me.Width - X1.Width) Then X2.Tag = " "
If X2.Left <= 0 Then X2.Tag = ""
End Sub