Olá.
Tentei resolver o problema em C#, pois não estou à vontade com VB. Converti o código e testei. Faz o que eu entendi ser necessário.
Espero que ajude.
(1) - Introduzir a comboBox1 e a textBox1 (em modo visual);
(2) - No mesmo modo visual, seleccionar a comboBox1, ir ao Painel "Properties", escolher "Events" e associar ao evento "SelectedIndexChanged" o método "ChangeOnComboBox", definido no código seguinte.
####### C# ########## (Form1.cs, com textBox1 e comboBox1)
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace WindowsApplication2
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
//Definir o estado default
this.SetDefault();
}
/// <summary>
/// Colocar o estado por default para os vários componentes.
/// </summary>
public void SetDefault(){
//Inicializar as opções
List<string> options = new List<string>();
options.Add("Não");
options.Add("Sim");
//Definir comboBox1.datasource
this.comboBox1.DataSource = options;
//Definir o estado default da textBox1
this.textBox1.Enabled = true;
}
/// <summary>
/// O que fazer em caso de alguma alteração ao estado da comboBox1.
/// </summary>
/// <param name="sender"></param>
/// <param name="e"></param>
private void ChangeOnComboBox(object sender, EventArgs e) {
if ((((string)comboBox1.SelectedItem).Equals("Sim")))
this.textBox1.Enabled = false;
else
this.textBox1.Enabled = true;
}
}
}
####### VB ########## (Form1.vb, com textBox1 e comboBox1)
Public Class Form1
Public Sub New()
InitializeComponent()
'Definir o estado default
Me.SetDefault()
End Sub
Public Sub SetDefault()
''' <summary>
''' Colocar o estado por default para os vários componentes.
''' </summary>
'Inicializar as opções
Dim options As New List(Of String)()
options.Add("Não")
options.Add("Sim")
'Definir comboBox1.datasource
Me.comboBox1.DataSource = options
'Definir o estado default da textBox1
Me.textBox1.Enabled = True
End Sub
''' <summary>
''' O que fazer em caso de alguma alteração ao estado da comboBox1.
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
Private Sub ChangeOnComboBox(ByVal sender As Object, ByVal e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If (DirectCast(ComboBox1.SelectedItem, String).Equals("Sim")) Then
Me.TextBox1.Enabled = False
Else
Me.TextBox1.Enabled = True
End If
End Sub
End Class