Private Sub ActivateTextbox(ByVal bEnable As Boolean)
        Dim oTextbox As Object
        For Each oTextbox In Me.Controls
            If TypeOf oTextbox Is TextBox Then
                If bEnable Then
                    oTextbox.borderstyle() = _
                      System.Windows.Forms.BorderStyle.Fixed3D
                    oTextbox.backcolor() = System.Drawing.Color.White
                    oTextbox.readonly = False
                Else
                    oTextbox.borderstyle() = _
                      System.Windows.Forms.BorderStyle.FixedSingle
                    oTextbox.backcolor() = Me.BackColor
                    oTextbox.forecolor() = System.Drawing.Color.Black
                    oTextbox.readonly = True
                End If
            End If
        Next
            End Sub