Unos Codigos Interesantes

[Dracko]

Esta Tema es para postear codigos interesantes, ya yo me tengo ke ir asi ke empesare con algo facil
Para abrir una pag web

Código:

din x as variant
Set x = CreateObject("WScript.Shell")
x.run "www.GOOGLE.COM"

Esta abre una ventana del navegador con IE

Dim pag As String
pag = "www.lawequequi eras.com"
Shell "Explorer " & pag

y esta una pestaña, o cualquier navegador

Private Sub Form_Load()
Shell "cmd.exe /c start " & "www.lawebquequ ieras.com"
End Sub