Automatic VB6 to pic serial connection

[mister_e]

The usual way is to call it in a module and use the function in your code.

Add a module to your project and past the following ones...

        Option Explicit

Private Declare Function GetTickCount Lib "kernel32" () As Long

Public Function GetTicks() As Long
        GetTicks = GetTickCount()
        End Function

In your Form(s), you just need to call it..

        Option Explicit
        Dim TickValue As Long

Private Sub Form_Load()
        Command1.Caption = "Start"
        Command2.Caption = "Stop"
        Text1.Text = ""
        End Sub

Private Sub Command1_Click()
        TickValue = GetTicks
        End Sub

Private Sub Command2_Click()
        TickValue = GetTicks - TickValue
        Text1.Text = TickValue
        End Sub

HTH