A checkbox doesn't have a "Visible"property, but you can come close:



Private Sub CheckBox1_Click()
If CheckBox1 Then
With CheckBox2
.Width = 1
.Height = 1
.Enabled = False
End With
With CheckBox3
.Width = 1
.Height = 1
.Enabled = False
End With

Else
With CheckBox2
.Width = 108
.Height = 18.6
.Enabled = True
End With
With CheckBox3
.Width = 108
.Height = 18.6
.Enabled = True
End With
End If
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/