[RESOLVED] Help with combobox / web browser controls

[cmmorris1]

I'm trying to play around with combo boxes and trying to figure out how to navigate to a certain url in webbrowser1 depending on the text selected in combobox1. Can anyone tell me what I'm doing wrong with this?

Imports System.Windows.Forms
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
    Class MyList
        Public MyId As Integer
        Public MyStr As String
 
        Public Sub New(ByVal s As String, ByVal i As Integer)
            MyStr = s
            MyId = i
        End Sub
 
        '//VB.net will decide DisplayMember using this function
        Public Overrides Function ToString() As String
            ToString = MyStr
        End Function
    End Class
 
    Sub LoadComboBox()
        ComboBox1.Items.Add(New MyList("Learn Webmail", 1))
        ComboBox1.Items.Add(New MyList("Learn File Manager", 2))
        ComboBox1.Items.Add(New MyList("Learn Redirects", 3))
        ComboBox1.Items.Add(New MyList("Learn Fantastico", 4))
        ComboBox1.Items.Add(New MyList("Learn Error Pages", 5))
        ComboBox1.Items.Add(New MyList("Learn MySQL", 6))
        ComboBox1.Items.Add(New MyList("Learn Addon Domains", 7))
        ComboBox1.Items.Add(New MyList("Learn To Protect Directories", 8))
        ComboBox1.Items.Add(New MyList("Learn Subdomains", 9))
        ComboBox1.Items.Add(New MyList("Learn Statistics", 10))
        ComboBox1.Items.Add(New MyList("Learn FrontPage Setup, FTP Access, And Change Passwords", 11))
        ComboBox1.Items.Add(New MyList("Learn Domain Registration", 12))
        ComboBox1.Items.Add(New MyList("Learn Web Hosting Setup", 13))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 1", 14))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 2", 15))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 3", 16))
        ComboBox1.Items.Add(New MyList("Using CPanel To Sell Resell Rights Products Part 4", 17))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 1", 18))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 2", 19))
        ComboBox1.Items.Add(New MyList("Using CPanel To Install A PHP/MySQL Script Part 3", 20))
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Sub ShowSelected()
        MsgBox("Text=" & ComboBox1.SelectedItem.Mystr & " ItemData=" & CStr(ComboBox1.SelectedItem.MyId))
    End Sub
 
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
 
    Private Sub ComboBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedValueChanged
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LoadComboBox()
        If ComboBox1.SelectedItem = 1 Then
            WebBrowser1.Navigate("urlhere")
        End If
    End Sub
 
End Class