Jag har en progressbar som går från 100 till 0% och man ska kunna skriva in ett antal min (ex 120) så ska 120 vara 100% och den ska gå neråt till noll.
Den ska ändras varje minuter progressbaren men vet inte hur.
Hur tusan ska man göra??

Hej
Principlösning

Option Explicit
Private Sub Form_Load()
'Ditt exempel 120 minuter
pgBar.Max = 120
pgBar.Value = 120
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'Intervall 60000 ca 1 minut
pgBar.Value = pgBar.Value - 1
If pgBar.Value < 1 Then Timer1.Enabled = False
End Sub

mvh
Sven

Inte för att bli petig men blir det inte då 120% istället för 100%???

Okidoki
Uppfattade inte att procent funktionen var viktig
Då kan det se ut så här

Option Explicit
Private Sub Form_Load()
pgBar.Value = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
'Intervall 60000 ca 1 minut
pgBar.Value = pgBar.Value - (100 / 120)
If pgBar.Value < 1 Then
pgBar.Value = 0
Timer1.Enabled = False
End If
End Sub

DS