Item ListBox abrindo IE.

[snakeICE]

ola a todos,

sou novo no forum e gostaria de uma ajuda de vocês, tenho uma listbox e gostaria que cada item que ela tem abri-se uma página da internet de acordo com o item selecionado.

Tenho procurado por ai porem sem sucesso..... :wacko:

se alguém poder me ajudar já agradeço..

Obrigado

e teh ++ :closedeyes:

[lobismano]

Opa.

Private Sub ComboBox1_Change()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

If ComboBox1.ListIndex > 0 Then

IE.navigate (ComboBox1.Text)

IE.Visible = True

End If

End Sub

Private Sub UserForm_Activate()

ComboBox1.AddItem "---"

ComboBox1.AddItem "www.google.com.br"

ComboBox1.AddItem "www.gmail.com"

End Sub

At.

[bsp.com]

e com o mozilla

como faz

Opa.

Private Sub ComboBox1_Change()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

If ComboBox1.ListIndex > 0 Then

IE.navigate (ComboBox1.Text)

IE.Visible = True

End If

End Sub

Private Sub UserForm_Activate()

ComboBox1.AddItem "---"

ComboBox1.AddItem "www.google.com.br"

ComboBox1.AddItem "www.gmail.com"

End Sub

At.