مشکل در جی پی اس

[محمد معین عبدی 255]

با سلام و عرض خسته نباشید خدمت دوستان و اساتید عزیز.

دوستان من یک برنامه نوشتم که کارش اینه موقعیت جغرافیایی رو میده ولی یه مشکل داره اونم اینه که چه در محیط باز و چه در بسته longitude و latitude رو عدد 0 میده . اگر امکانش هست دوستان راهنمایی کنن.

Sub btnpng_Click
	Try
	Dim loc As Location
	loc.Initialize
	lblx1.Text = loc.Longitude
	lbly1.Text = loc.Latitude
	lblx1.Text = loc.Altitude
	Catch
		Log(LastException)
	End Try
	ToastMessageShow("انجام شد",False)
End Sub