For Each myTeksBoks As TextBox In daftarTextBox If t Then myTeksBoks.Enabled = True Me.cmbKodeKategori.Enabled = True Else myTeksBoks.Enabled = False Me.cmbKodeKategori.Enabled = False End If Next End Sub