CheckBox1_CheckedChanged

 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ' Determine the CheckState of the check box.
        If CheckBox1.CheckState = CheckState.Checked Then
            ' If checked, do not allow items to be dragged onto the form.
            Me.AllowDrop = False
        End If
End Sub