Visual Basic.NET - Notificar si se inserto un nuevo registro

Dim WithEvents MiTimer As New Timer   ' !!! NO olvidar WITHEVENTS

' Cuando es necesario que MiTimer functiona la primera vez, por ejemplo con el evento Load del Form

Private Sub MiForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    MiTimer.Interval = 10000 ' Es decir 10 segundos (10000 millisegundos)

    MiTimer.Start()   ' Arrancar

    ' ...

End Sub

' El evento Tick de MiTimer viene con el interval escrito

Private Sub MiTimer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles MiTimer.Tick

    MiTimer.Stop()  ' Parar, el tiempo de hacer el necesario

    ' Aqui, verificar los registros del Chat

    ' Enviar notificacion si necesario

    ' Hacer todo que te gusta

    ' ...

    MiTimer.Start()  ' Start, volver a arrancar

End Sub