Вывод GetTickCount на форму

Imports System
Imports System.Runtime.InteropServices
Private Declare Function GetTickCount Lib "kernel32" () As Long
    Dim tspent As Uinteger
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        InitializeComponent()
        tspent = GetTickCount()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label3.Text = ((GetTickCount() - tspent) / 1000).ToString & " seconds"
    End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      InitializeComponent()
      tspent = GetTickCount()
      Timer1.Start()
End Sub

    Dim I As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        I = I + 1
        Label3.Text = I & " секунда (ы)"
    End Sub

 Dim I As Integer
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        I = I + 1
        Label3.Text = I & " секунда (ы)"
    End Sub