"ClearChkAndTxt_Master - "#Region "ClearChkAndTxt_Master - " ' Clear ALL txtBox's text and uncheck the chkBox in form Public Sub ClearChkAndTxt_Master() Sub ClearChkAndTxt_Master(ByVal pform As System.Windows.Forms.Form) Try gsSaveFeeCodeTemp = BLANK gsCancelFeeCodeTemp = BLANK Call ClearChkAndTxt_Searching(pform.Controls) Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub Private Sub ClearChkAndTxt_Searching() Sub ClearChkAndTxt_Searching(ByVal pControls As System.windows.Forms.Control.ControlCollection) Try Dim lcControl As Control Dim lCheckBox As CheckBox For Each lcControl In pControls If lcControl.Controls.Count > 0 Then ClearChkAndTxt_Searching(lcControl.Controls) Else Select Case lcControl.GetType.Name Case "CheckBox" lCheckBox = lcControl lCheckBox.Checked = False Case "TextBox" lcControl.Text = BLANK End Select End If Next Catch Err As Exception Call ErrHandler(Err.Message, APP_NAME) End Try End Sub #End Region