Смена общей прозрачности формы - Visual Basic .NET

Формулировка задачи:

Нуссс... Посмотрим что тут у нас... А, вот! Столкнулся тут с одной проблемой... Вроде-бы пустяковая, однако я так и не понял, в чём я допустил прореху... Задача такова: форма должна постоянно менять свою прозрачность, от значения 0.1 до 1 и обратно, но у меня она совершает только 1 цикл и застывает... p.s. простите меня, грешного, за русское название переменной =)

Public Class Form1
    Dim Прозрачность As String = 0
End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer3.Enabled = True
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    'таймер работающий до минимальной прозрачности формы        
    Прозрачность = Прозрачность + 1
        If Прозрачность = 10 Then
            Прозрачность = Прозрачность - 1
        Timer1.Enabled = False
            Timer2.Enabled = True
        End If
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    'таймер работающий до максимальной прозрачности формы 
        If Прозрачность = 0 Then
            Timer2.Enabled = False
            Timer1.Enabled = True
        End If
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        'Таймер отвечающий за смену прозрачности формы. Interval = 1
        If Прозрачность = 0 Then Me.Opacity = 0.1
        If Прозрачность = 1 Then Me.Opacity = 0.2
        If Прозрачность = 2 Then Me.Opacity = 0.3
        If Прозрачность = 3 Then Me.Opacity = 0.4
        If Прозрачность = 4 Then Me.Opacity = 0.5
        If Прозрачность = 5 Then Me.Opacity = 0.6
        If Прозрачность = 6 Then Me.Opacity = 0.7
        If Прозрачность = 7 Then Me.Opacity = 0.8
        If Прозрачность = 8 Then Me.Opacity = 0.9
        If Прозрачность = 9 Then Me.Opacity = 1
    End Sub

Решение задачи: «Смена общей прозрачности формы»

textual
                            Листинг программы 
                        

                             Dim up As Boolean = True
    Dim formOpacity As Integer = 0
    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
 
        If formOpacity < 10 And up Then
            formOpacity += 1
        ElseIf formOpacity = 10 Then
            up = False
            formOpacity -= 1
        ElseIf formOpacity > 1 And up = False Then
            formOpacity -= 1
        ElseIf formOpacity = 1 Then
            formOpacity += 1
            up = True
        End If
        Me.Opacity = formOpacity / 10
    End Sub
                        