impostando la proprietà interval del timer a 1000ms puoi usare il seguente codice:
codice:
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static Dim secondi As Integer
        secondi += 1
        If secondi = 599 Then
            secondi = 0
            MsgBox("sono passati 10 minuti")
        End If
    End Sub
oppure puoi usare intervalli maggiori ma rammenta ke interval accetta solamente valori di tipo Integer.