Bueno pues he hecho una barra de progreso con timer y quiero que al acabar la barra salga una mensaje como que a finalizado con un boton de aceptar que cierre el programa como se hace?

Código:

Public Class frmVentana

    Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub cmdAceptar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(+1)

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click

    End Sub

End Class

Probemos con esto:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(+1)
If ProgressBar1.Value = 100 Then
Timer1.Stop()
Messagebox.Show ("Fin")

End Sub

Estas consultas de .Net debes hacerlas en la sección de VB .Net.