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
   

Calculate Due date VB6 Example

On Error GoTo err:

If cmdAdd.Enabled = False Then
Adodcterms2.CommandType = adCmdText
Adodcterms2.RecordSource = "select * from terms where Terms='" & DataCombo3.Text & "'"
Adodcterms2.Refresh

    Dim objDate As Date
    objDate = CDate(Date)
    objDate = objDate + Val(Text6.Text)

    txtFields(7).Text = Format(objDate, "MM/DD/YYYY")

End If
err:
    If err.Number <> 0 Then
        err.Clear
        Resume Next
    End If