Sub GPS_LocationChanged (Location1 As Location)
lon = Location1.ConvertToSeconds(Location1.Longitude)
lat= Location1.ConvertToSeconds(Location1.Latitude)
SMTP.Initialize("smtp.gmail.com", 465, "user@gmail.com", "pass", "SMTP")
SMTP.UseSSL = True
SMTP.To.Add("user@hotmail.com")
SMTP.Subject = "Subject"
SMTP.HtmlBody= True
SMTP.Body = "http://maps.google.com/staticmap?center= "&Location1.Latitude&","& Location1.Longitude&"&zoom=14&size=400x400&markers= "&Location1.Latitude&","& Location1.Longitude&"&key=12345"
SMTP.Send
End Sub