[VB.NET] Invertire valore boolean di variabile a intervalli periodici

[silver79]

ragazzi devo creare una variabile bool che passa da uno a zero con una certa frequenza.
ho provato a fare così:

    Dim secondo As Boolean
    Dim Tpieno As Integer
    Dim Tvuoto As Integer

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Tpieno = 100 Then
            secondo = True
            Tpieno = 0
        ElseIf Tvuoto = 200 Then
            secondo = False
            Tvuoto = 0
        Else
            Tpieno = Tpieno + 1
            Tvuoto = Tvuoto + 1
        End If
    End Sub 

Non ci crederete ma questo casino funziona pure
Ora però vorrei sapere se c'è un modo + corretto e meno ingarbugliato di fare questa cosa.
Si vede chiaramente che sono un programmatore novello quindi faccio un po di freestyle
per risolvere le cose
Grazie!