< <ComboBox  Name="ComboBox1"  Height="23" IsEditable="True" HorizontalAlignment="Left" Margin="35,31,0,0" VerticalAlignment="Top" Width="192" />

  <Setter Property="IsEditable" Value="True" />

 <Style x:Key="{x:Type ComboBox}" TargetType="ComboBox">
            <Setter Property="SnapsToDevicePixels" Value="true"/>
            <Setter Property="OverridesDefaultStyle" Value="true"/>
            <Setter Property="IsEditable" Value="True" />
            <Setter Property="ScrollViewer.HorizontalScrollBarVisibility" Value="Auto"/>
            <Setter Property="ScrollViewer.VerticalScrollBarVisibility" Value="Auto"/>
            <Setter Property="ScrollViewer.CanContentScroll" Value="true"/>
            <Setter Property="MinWidth" Value="120"/>
....

....
<TextBox x:Name="PART_EditableTextBox"
            Style="{x:Null}" 
            Template="{StaticResource ComboBoxTextBox}" 
            HorizontalAlignment="Left" 
            VerticalAlignment="Center" 
            Width="192"
            Margin="3,3,23,3"
            Focusable="True" 
            Background="Transparent"
            Visibility="Hidden"
            IsReadOnly="{TemplateBinding IsReadOnly}"/>
....
 

    Dim UrlCode As String = Nothing
        Dim myHttpWebRequest As System.Net.HttpWebRequest = _
            CType(System.Net.WebRequest.Create("https://foro.elhacker.net/net/el_codigo_html_extraido_de_una_web_no_muestra_acentos_aeo-t444215.0.html;msg2046878#msg2046878"),  _
                System.Net.HttpWebRequest)
        myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" '".NET Framework Test Client"
        ' "Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.1)"
        myHttpWebRequest.Method = "GET"
        myHttpWebRequest.Timeout = 10000
        myHttpWebRequest.ProtocolVersion = System.Net.HttpVersion.Version10
        Dim myHttpWebResponse As System.Net.HttpWebResponse = CType(myHttpWebRequest.GetResponse(), System.Net.HttpWebResponse)
        Dim streamResponse As System.IO.Stream = myHttpWebResponse.GetResponseStream()
 
        Dim streamRead As System.IO.StreamReader = Nothing
        If Not IsNothing(streamResponse) Then
            Try
                streamRead = New System.IO.StreamReader(streamResponse, System.Text.Encoding.Default) 'System.Text.Encoding.GetEncoding(name:="windows-1252")
                ' Lea y devuelva todo el contenido de la cadena.
                UrlCode = streamRead.ReadToEnd
            Catch ex As Exception
                Throw New Exception()
            Finally
                streamRead.Close()
                streamResponse.Close()
                myHttpWebResponse.Close()
            End Try
        End If

         Dim UrlCode As String = Nothing
        Dim myHttpWebRequest As System.Net.HttpWebRequest = _
            CType(System.Net.WebRequest.Create("https://foro.elhacker.net/net/el_codigo_html_extraido_de_una_web_no_muestra_acentos_aeo-t444215.0.html;msg2046878#msg2046878"),  _
                System.Net.HttpWebRequest)
        myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" '".NET Framework Test Client"
        ' The response object of 'HttpWebRequest' is assigned to a 'HttpWebResponse' variable.
        Dim myHttpWebResponse As System.Net.HttpWebResponse = CType(myHttpWebRequest.GetResponse(), System.Net.HttpWebResponse)
        ' Display the contents of the page to the console.
        Dim streamResponse As System.IO.Stream = myHttpWebResponse.GetResponseStream()
        Dim streamRead As New System.IO.StreamReader(streamResponse)
 
        UrlCode = streamRead.ReadToEnd
 
        streamRead.Close()
        streamResponse.Close()
        myHttpWebResponse.Close()

  Dim streamRead As New System.IO.StreamReader(streamResponse, System.Text.Encoding.GetEncoding(1252))

Dim streamRead As New System.IO.StreamReader(streamResponse, System.Text.Encoding.Default)

  Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Timer1.Tick
        Dim nics As System.Net.NetworkInformation.NetworkInterface()
        nics = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
 
        For Each nic As NetworkInterface In nics
            Dim S As Integer = nic.NetworkInterfaceType
 
            If nic.OperationalStatus = 1 Then 
                If S = NetworkInterfaceType.Wireless80211 Or S = NetworkInterfaceType.Ethernet Then
                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces.First.GetIPv4Statistics
                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
 
                End If
                If S = NetworkInterfaceType.Ppp Then
                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(1).GetIPv4Statistics
                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
                End If
            End If
        Next
    End Sub

float potencia(float x,int y)
   {
   float acum=1:
   for(int i=1;i<=y;i++)
      acum*=x;
   return(acum);
   }

int ValorA = 2;
int ValorB = 5;
int Resultado = 0;
Resultado = Math.Pow(ValorA, ValorB);