Visual Basic

Private boolChanged As Boolean

Private Sub Form_Load()
    boolChanged = False
End Sub

Private Sub btnSubmit_Click()
    Dim result As VbMsgBoxResult
    If boolChanged = True Then
        result = MsgBox("Are you sure?", vbYesNo, "Confirm")
        Select Case result
            Case VbMsgBoxResult.vbYes
                'Code if user selects Yes
            Case VbMsgBoxResult.vbNo
                'Code if user selects No
        End Select
        Exit Sub
    End If
    'Code if no changes were made to check boxes
   End Sub

Private Sub Check1_Click()
    boolChanged = True
End Sub

Private Sub Check2_Click()
    boolChanged = True
End Sub

function CheckIfChanged()<br />
{<br />
   //Check if checkbox has changed<br />
   if (hidChanged.value <> "")<br />
   {<br />
      Result = confirm("Are you sure?");<br />
      if (Result) //The user selected "Yes"<br />
      {<br />
         form1.hidResult.value = "Y";<br />
         return true;<br />
      }else{	//The user selected "Cancel"<br />
         form1.hidResult.value = "";<br />
         return false;<br />
      }	<br />
   }<br />
}

                <br />
strFormName = param_Form.Name<br />
<br />
                Dim param_Form_type As Type = param_Form.GetType()<br />
                Dim compFields As FieldInfo() = param_Form_type.GetFields(BindingFlags.Instance Or BindingFlags.NonPublic)<br />
                For Each fiField As FieldInfo In compFields<br />
                    Dim strCtrl(1) As String<br />
                    strCtrl = ReturnCompName(fiField, param_Form)<br />
                    For Each dr As DataRow In myrs.Rows<br />
                        If strCtrl(0) = dr("SecAuthCtrl_Name") And fiField.FieldType.FullName = dr("SecAuthCtrl_Type") Then<br />
                            Select Case fiField.FieldType.FullName.ToLower<br />
                                Case "System.Windows.Forms.ToolBarButton".ToLower<br />
                                    Dim cmp As ToolBarButton = DirectCast(fiField.GetValue(param_Form), ToolBarButton)<br />
                                    cmp.Enabled = dr("SecAuthorized_Enabled")<br />
                                    cmp.Visible = dr("SecAuthorized_Visible")<br />
                                Case "System.Windows.Forms.MenuItem".ToLower<br />
                                    Dim cmp As MenuItem = DirectCast(fiField.GetValue(param_Form), MenuItem)<br />
                                    cmp.Enabled = dr("SecAuthorized_Enabled")<br />
                                    cmp.Visible = dr("SecAuthorized_Visible")<br />
                                Case Else<br />
                            End Select<br />
                        End If<br />
                    Next<br />
                Next

MyGridView.DefaultCellStyle.SelectionBackColor = Color.White<br />
MyGridView.DefaultCellStyle.SelectionForeColor = Color.Black<br />
MyGridView.AlternatingRowsDefaultCellStyle.SelectionBackColor = My.Settings.ContrastBackColor<br />
MyGridView.AlternatingRowsDefaultCellStyle.SelectionForeColor = My.Settings.ContrastFontColor