vereenvoudigen formule

[rene heitse]

Hallo allen,

Ik heb de volgende vraag: hoe kan ik onderstaande formule vereenvoudigen:

Private Sub CheckBox5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox5.Click
If CheckBox5.Checked = True Then
CheckBox7.Visible = True
CheckBox8.Visible = True
checkbox9.visible = True
checkbox10.visible = True
CheckBox11.Visible = True
End If

If CheckBox5.Checked = False Then
CheckBox7.Visible = False
CheckBox8.Visible = False
CheckBox9.Visible = False
CheckBox10.Visible = False
CheckBox11.Visible = False
TextBox1.Visible = False
TextBox2.Visible = False
TextBox3.Visible = False
TextBox4.Visible = False
TextBox5.Visible = False
TextBox6.Visible = False
TextBox7.Visible = False
TextBox8.Visible = False
TextBox9.Visible = False
TextBox10.Visible = False
End If


End Sub

Alvast bedankt, rené

 

[OctaFish]

Wat dacht je van zoiets?

Dim i As Integer
For i = 6 To 11
    Me("CheckBox" & i).Visible = Me.CheckBox5
Next i

For i = 1 To 10
    If Me.CheckBox5 = -1 Then
        Me("TextBox" & i).Visible = True
    Else
        Me("TextBox" & i).Visible = False
    End If
Next i

En zou je de volgende keer de CODE tag (Knop #) kunnen gebruiken voor je code?