text1 skal optælle *haster*

dont quite understand what you mean with "tælle op r 10 sekunder"!

What do you want to "tælle op"?


Is it the time you wnat to see?

når du klikker på knappen skal den begynde at tælle op af når du så trykker på den igen skal den stoppe og når du klikker på den skal den tælle vidre!

Har ikke lige adgang til VB herfra men mon ikke du skal have fat i en timer og så på en af dens events skrive noget i tekstboksen.

Hvis det nu er noget der haster er det vel lidt mere end 15 point værd.

xfox>>hvorfor hjælper du ikke bare istedet for at kommentere point'ene?

noget i den stil:

'-------------------------------------- Form1 --------------------------------------
Option Explicit

Private lngCount As Long

Private Function SecToTime(ByVal lngSec As Long) As String
Dim lngMin As Variant
  lngMin = Format(Fix(lngSec / 60), "00")
  SecToTime = Format(Fix(lngMin / 60), "00") & ":" & _
              Format(lngMin Mod 60, "00") & ":" & _
              Format(lngSec Mod 60, "00")
End Function

Private Sub Command1_Click()
  With Timer1
    If .Interval = 0 Then
      .Interval = 1000 '<-- 1 sec
      .Enabled = True
      Command1.Caption = "Stop"
        Else
      .Interval = 0
      .Enabled = False
      Command1.Caption = "Start"
    End If
  End With
  lngCount = 0
End Sub

Private Sub Form_Load()
  Timer1.Interval = 0
  Command1.Caption = "Start"
  Text1.Text = "00:00:00"
End Sub

Private Sub Timer1_Timer()
  lngCount = lngCount + 1
  Text1.Text = SecToTime(lngCount) '<-- Viser tiden
End Sub
'-------------------------------------- Form1 --------------------------------------

tak sjh!

selv tak :-)