Componentes necesarios:
Un timer con la propiedad enabled = true y la propiedad interval en 1000
Un progresbar en este caso con la propiedad Maximun en 5.
un Label para ver el contador
Este es un ejemplo:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'a es el contador
Static a As Integer = 0
a = a + 1
Label1.Text = a
ProgressBar1.Value = a
If a > 4 Then
Me.Close()
End If
End Sub
En este caso la barra se llena en 5 segundos y luego cierra el formulario. Es algo asi como un ejemplo para un Splash Screen.
Espero haber ayudado.
Ab.