Código:
Dim p As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Frame1.Caption = ""
Frame1.BackColor = ‘aqui puedes poner el color que quieras
Frame1.BorderStyle = 0
Shape1.Width = 0
Shape1.BorderColor = ‘aqui puedes poner el color que quieras
Shape1.FillColor = 'aqui puedes poner el color que quieras
Shape1.FillStyle = 0
End Sub
Private Sub Timer1_Timer()
p= p + 10
If Shape1.Width < 5000 Then ‘puede ponerle el valor que quieras
Shape1.Width = p
End If
End Sub