Public Class Form1
    Public p As New System.Diagnostics.Process
    Private Sub RichTextBox1_LinkClicked _
    (ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.LinkClickedEventArgs) _
    Handles RichTextBox1.LinkClicked
        ' Call Process.Start method to open a browser 
        ' with link text as URL. 
        System.Diagnostics.Process.Start(e.LinkText)
    End Sub
    Private Sub COMBOboX1_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
 
        ComboBox2.Items.Clear()
 
        Select Case ComboBox1.Text
            Case "Mercedes"
                TextBox1.Text = "17200"
                ComboBox2.Items.Insert(0, "Sprinter")
 
        End Select
 
        RichTextBox1.Text = _
          "http://suchen.mobile.de/auto/mercedes-benz-sprinter.html?scopeId=C&" & _
          "sSearchRequest=true&sortOption.sortBy=price.consumerGrossEuro&lang=" & _
          "e&makeModelVariant1.makeId=" & TextBox1.Text & _
          "&makeModelVariant1.modelId=" & TextBox2.Text
 
    End Sub
 
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
 
        Select Case ComboBox2.Text
 
            Case "Sprinter"
                TextBox2.Text = "116&ambitCountry="
 
        End Select
 
        RichTextBox1.Text = _
          "http://suchen.mobile.de/auto/mercedes-benz-sprinter.html?scopeId=C&" & _
          "sSearchRequest=true&sortOption.sortBy=price.consumerGrossEuro&lang=" & _
          "e&makeModelVariant1.makeId=" & TextBox1.Text & _
          "&makeModelVariant1.modelId=" & TextBox2.Text
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        ComboBox1.Items.Add("Mercedes")
 
 
    End Sub
 
End Class