Here you go. Note that with the code below, my calendar item does not end up with a description. If I uncomment the HTMLBody line of code, then that text gets put in the description of the calendar item, which isn't correct.
Dim l As New Aspose.Network.License
l.SetLicense("Aspose.Total.lic")
Dim mm As New Aspose.Network.Mail.MailMessage
mm.From = "fromEmail"
mm.To.Add("toEmail")
mm.Subject = "email test"
'mm.HtmlBody = "this
is
my
body"
Dim mc As New Aspose.Network.Mail.Calendar("some location", "summary", "description", Now.AddHours(4).ToString("MM/dd/yyyy h:m:s"), Now.AddHours(5).ToString("MM/dd/yyyy h:m:s"), mm.From(0), mm.To)
mm.AddCalendar(mc)
Dim sm As New Aspose.Network.Mail.SmtpClient("mySMTPServer")
sm.AuthenticationMethod = Aspose.Network.Mail.SmtpAuthentication.None
sm.Send(mm)