Private Sub comboboxQuestion11_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles comboboxQuestion11.SelectedIndexChanged

        'If the product does need to be set to a specific tone, then this label is made visible'
        If comboboxQuestion11.Text = "Yes" Then
            lblQuestion12.Visible = True
        Else : lblQuestion12.Visible = False
        End If

        'If the product does need to be set to a specific tone, then this textbox is made visible'
        If comboboxQuestion11.Text = "Yes" Then
            txtboxQuestion12.Visible = True
        Else : txtboxQuestion12.Visible = False
        End If

    End Sub

Private Sub Tes2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox1.Visible = False
        With ComboBox1.Items
            .Add("yes")
            .Add("no")
        End With
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedItem = "yes" Then
            TextBox1.Visible = True
        Else
            TextBox1.Visible = False
        End If
    End Sub