Private Sub CheckBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles CheckBox1.KeyDown If e.KeyCode = Keys.Enter Then Dim chk As CheckBox = DirectCast(sender, CheckBox) chk.Checked = Not chk.Checked End If End Sub