[WaZoR.se]

Jag kom på det....

    Timer.Interval = 100
    Timer.Start()


  Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick
    If Timer.Interval > 1 Then
      Timer.Interval = Timer.Interval - 1
    Else
      Timer.Stop()
    End If
    status.Text = Timer.Interval
  End Sub

kanske inte den enklaste men det funkade :P