Simular Barra de Progreso

Public Sub Timer1_Timer()

  If lblBarra.W + lblBarra.x < FormBarraProgreso.W - lblBarra.X Then
    lblBarra.Width = lblBarra.Width + 5  'Aumentamos el ancho de la barra en 5,10,20...
  Else
    Timer1.Stop 'Se para el Timer1
  Endif

End

Public Sub btnIniciar_Click()

  'Inicializamos los valores
  Me.Caption = "Simula barra de progreso"
  Me.Center

  'Podemos asignar estos valores en las propiedades de los componentes
  lblBarra.Width = 0
  lblBarra.Background = Color.Blue
  Timer1.Delay = 50
  Timer1.Start

End