title: VB2008 How to use common name inside private sub (similar this.value in javascript)
body: <p>I would like to know is there any way to type component in common name in VB2008. See the below example.</p>
  
  <pre><code> Private Sub ComboBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox3.GotFocus
      Dim get_current As String
      get_current = ComboBox3.Text
      ComboBox3.DataSource = GetMailItems("default_values", "nationality")
      ComboBox3.DisplayMember = "Name"
      ComboBox3.ValueMember = "ID"
      ComboBox3.Text = get_current
  End Sub
  </code></pre>
  
  <p>You can see how many times I typed ComboBox3.
  When I copy this to other ComboBox_GotFocus inside, I have to change all ComboBox3 --> Combobox4.</p>
  
  <p>Is there anyway I can use it like <strong>this.DisplayMember = "Name"</strong> (similar to javascript code) You can see javascript code example below.</p>
  
  <pre><code>&lt;select onchange="alert(this.options[this.selectedIndex].title)" &gt;
  &lt;option title="first"&gt;first&lt;/option&gt;  
  &lt;option title="second"&gt;second&lt;/option&gt;
  &lt;/select&gt;
  </code></pre>
  
  <p>Thank You,</p>
  
  <p>Sameera Silva</p>