Pasted

    Public Shared Sub HideShowComboBox(cbName As ComboBox, visible As Boolean)
        If Not visible Then
            cbName.Visible = False
        Else
            cbName.Visible = True
        End If
    End Sub
 
    Public Shared Sub DisableEnableComboBox(cbName As ComboBox, enabled As Boolean)
        If Not enabled Then
            cbName.Enabled = False
        Else
            cbName.Enabled = True
        End If
    End Sub
 
    Public Shared Sub HideShowTextBox(tbName As TextBox, visible As Boolean)
        If Not visible Then
            tbName.Visible = False
        Else
            tbName.Visible = True
        End If
    End Sub
 
    Public Shared Sub DisableEnableTextBox(tbName As TextBox, enabled As Boolean)
        If Not enabled Then
            tbName.Enabled = False
        Else
            tbName.Enabled = True
        End If
    End Sub