Visual Basic.NET - Temporizador por codigo visual basic 2019

Imports System.Timers

Imports System.Threading

Imports System

Imports System.IO

Public Class FORM_formulario_principal

    Dim WithEvents Timer1 As New System.Timers.Timer

    Dim integer_numero As Integer = 0

    Dim label1 As New Label

    Private Sub FORM_formulario_principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Controls.Add(label1)

        label1.Top = 0

        label1.Left = 0

        label1.Height = 20

        label1.Width = 500

        label1.Font = New Font("Microsoft Sans Serif", 15)

        Timer1.Interval = 100

        Timer1.Enabled = True

        Timer1.Start()

    End Sub

    Public Sub Timer1_Tick(sender As Object, e As EventArgs) ' Handles Timer1.Elapsed

        label1.Text = Convert.ToString(integer_numero)

        integer_numero = integer_numero + 1

    End Sub

End Class

Private Sub FORM_formulario_principal_Load(sender As Object, e As EventArgs) Handles MyBase.Load

         Me.Controls.Add(label1)

        label1.Top = 0

        label1.Left = 0

        label1.Height = 20

        label1.Width = 500

        label1.Font = New Font("Microsoft Sans Serif", 15)

        Timer1.Interval = 100  ' Este es poco, este es 1/10e segundo. Probas con 1000.

' Las dos líneas siguiente están misma función : haces una u otra, no las dos.

    '    Timer1.Enabled = True 

        Timer1.Start()

    End Sub

    Public Sub Timer1_Tick(sender As Object, e As EventArgs)  Handles Timer1.Tick  'Tienes que utilizar el evento Tick (no Elapse)

 ' Quiza es bien de iniciar aqui :

Static integer_numero As Integer = 0

        label1.Text = Convert.ToString(integer_numero)  ' Es mejor : = Ctype(integer_numero, integer), pero es inutile, la conversion es implicita

        integer_numero = integer_numero + 1

    End Sub

End Class