Visual Basic - Hacer un sistema de alarma para un control de inventario

Dim Timer As System.Windows.Forms.Timer

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        Timer.Stop()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Timer = New System.Windows.Forms.Timer

        Timer.Interval = 3000 'intervalo en milisegundos (3 segundos)

        Timer.Start() 'inicia

        'Indicamos que para cada tick, se lanza la funcion  LanzarComprobacion

        AddHandler Timer.Tick, AddressOf LanzarComprobacion

    End Sub

    Public Sub LanzarComprobacion()

        MsgBox("COMPROBACION A BBDD")

    End Sub