Problem sa Tajmerom u Visual Basicu?

[qzmagretna]

Pozdrav drustvo, malo se zanimam.... Napravio sam mali brojac u VB, rec je o odbrojavanju nafte( u barelima). Podatke sam uzeo sa sajta /.

http://www.worldometers.info/

Napravio sam kod i program radi i odbrojava. Za timer sam stavio 1 ali i dalje je to jako sporo po uzoru na ovaj gore navedi sajt. Skida mi oko 100 lbarela u sekundi, a trebalo bi 1000 a vec sam podesio timer na 1, da li moze brze od toga da se okrece brojac u programu? U jednoj sekundi bi trebao da okrene 1000 brojeva,tj. da spusti.

Evo i koda,

Nadam se da ste me razumeli sta vas pitam

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox(" Zero-Fix.de")
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Text = Button1.Text - 1
        If Button1.Text = 0 Then
            Timer1.Stop()
            Button1.Text = "Fortsetzen"
            Button1.Enabled = True
        End If
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Start()
    End Sub
End Class

Sam program cini jedno dugme Button1, u polju text sam uneo taj bilionski broj i stvarno kada odem na run program radi nije sporno,smanjuju se cifre tj. u ovom slucaju bareli)

Svaka pomoc je dobrodosla! Aj u zdravlje!