选中多个Checkbox的有关问题

选中多个Checkbox的问题
怎么才能让选中一个checkbox的同时选中另一个checkbox？我的代码虽然可以选中另一个但是选中的那个checkbox的勾却去掉了。 
 Private Sub CheckBox5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
  CheckBox4.Checked = True
  CheckBox1.Checked = False
  End Sub

[解决办法]
Private Sub CheckBox5_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged 
if CheckBox5.Checked = True then '选中 CheckBox5 时
CheckBox4.Checked = True 
CheckBox1.Checked = False
endif 
End Sub