[محمد]

شكرآ أخى على هذا الموضوع ممكن تساعدنى فى هذا الكود ؟

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim i As Integer = Val(Label1.Text)
        If Not i < 100 AndAlso i > 0 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = True
            Label2.BackColor = Color.Lime
            Label4.BackColor = Color.Lime
            Label5.BackColor = Color.Lime
            Label6.BackColor = Color.Lime
        End If
        If Not i < 200 AndAlso i > 100 Then
            Label2.Visible = False
            Label4.Visible = False
            Label5.Visible = False
            Label6.Visible = False
        Else
            Label2.Visible = True
            Label4.Visible = True
            Label5.Visible = True
            Label6.Visible = False
            Label2.BackColor = Color.CornflowerBlue
            Label4.BackColor = Color.CornflowerBlue
            Label5.BackColor = Color.CornflowerBlue
            Label6.BackColor = Color.CornflowerBlue
            If Not i < 300 AndAlso i > 200 Then
                Label2.Visible = False
                Label4.Visible = False
                Label5.Visible = False
                Label6.Visible = False
            Else
                Label2.Visible = True
                Label4.Visible = True
                Label5.Visible = False
                Label6.Visible = False
                Label2.BackColor = Color.Orange
                Label4.BackColor = Color.Orange
                Label5.BackColor = Color.Orange
                Label6.BackColor = Color.Orange
                If Not i < 2000 AndAlso i > 300 Then
                    Label2.Visible = False
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                Else
                    Label2.Visible = True
                    Label4.Visible = False
                    Label5.Visible = False
                    Label6.Visible = False
                    Label2.BackColor = Color.Red
                    Label4.BackColor = Color.Red
                    Label5.BackColor = Color.Red
                    Label6.BackColor = Color.Red
                End If
            End If
        End If
    End Sub