Haktech: how to launch url in vb6?

launch url in vb6 is simple.














 code:

On Error GoTo err:
Dim ret
ret = Shell("cmd /c start http://haktech.blogspot.com", vbHide)
err:
    If err.Number <> 0 Then
        err.Clear
        Resume Next
    End If