Up timer

[snipered]

I am trying to create an up timer in the format of HH:MM:SS. I know how to do this in vb.net. I tried to use the same method for vb6 but it doesn't have a variable Date.

This is how to do it in vb.net, does someone know how to do it in vb6?

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim startTime As New Date
    Dim elapsedTime As TimeSpan

' Windows Form Designer generated code goes here

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Timer1.Enabled Then
            Timer1.Enabled = False
        Else
            startTime = Now
            Timer1.Enabled = True
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        elapsedTime = New TimeSpan(Now.Ticks - startTime.Ticks)
        TextBox1.Text = elapsedTime.ToString.Substring(0, 8)
    End Sub
End Class

[Smeagol]

In your timer code...

TextBox1.Text = Format(Now, "HH:MM:SS AMPM")

the ampm part is optional

[snipered]

i know what u mean, but that takes the system time. Thats not what i wanted.
i wanted a timer to start from 00:00:00 in the format of HH:MM:SS and count up.

[Smeagol]

I dont know why they moved your question, it is about vb6.

Try this under timer...

Static x As Long
Static H, M As Long

    If IsNull(H) Then H = 0
    If IsNull(M) Then M = 0
    
    x = x + 1
    
    If x = 60 Then
        
    
        x = 0
        M = M + 1
        
        If M = 60 Then
            M = 0
            H = H + 1
        End If
        
    End If
    
    Label1.Caption = Format(H, "00") & ":" & Format(M, "00") & ":" & Format(x, "00")

It works with a minor bug the first time through, you will figure it out I am sure.