Har försökt skriva en funktion för att pausa/stanna mitt program som
är ett slags räkneverk. När jag trycker på pausknappen ska programmet stanna och trycker jag en gång till ska den sätta igång ifrån där jag slutade. Det vill sig inte.../Ubbe

Vet inte om det var det var något sånt här du var ute efter?

'Lägg till en TextBox(Text1)
'Lägg till en CommandButton(Command1)
'Och lägg till en Timer(Timer1)
'Klistra in fäljande kod i formuläret:
Option Explicit

Private mTotalTime As Double
Private mStartTime As Single

Private Sub Command1_Click()
If Timer1.Enabled Then
mTotalTime = mTotalTime + (Timer - mStartTime)

Text1.Text = Format$(mTotalTime, "0.00")

Timer1.Enabled = False
Command1.Caption = "Start"
Else
mStartTime = Timer

Timer1.Enabled = True
Command1.Caption = "Pause"
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "Start"
Timer1.Enabled = False
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Text1.Text = Format$(mTotalTime + (Timer - mStartTime), "0.00")
End Sub

Jaa, tackar det här kan vara något, det är bara morgonkaffet som saknas, haré./Ubbe

Hej
Ett sätt att lösa ditt exempel
'Label1 ,Command1,Timer1

Option Explicit
Dim cnt As Long
Dim Check As Boolean

Private Sub Form_Load()
Command1.Caption = "Pause"
End Sub

Private Sub Command1_Click()
If Command1.Caption = "Pause" Then
Command1.Caption = "Räknar"
Timer1.Enabled = True
Check = False
Else
Command1.Caption = "Pause"
Timer1.Enabled = False
Do While Check = True
DoEvents
Loop
End If
End Sub

mvh
Sven

Private Sub Timer1_Timer()
'Simulera räknare 2 sek
cnt = cnt + 1
Label1.Caption = cnt
End Sub