Sub lblSnapshot_Click
Dim SnapBitmap As Bitmap
Dim myPhone As Phone
If panLayout.Tag="list" Then
cvs.Initialize(gmapD)
Else
cvs.Initialize(gmap)
End If
SnapBitmap=cvs.CreateBitmap
myPhone.AddImageToAlbum(SnapBitmap)
ImageView1.Bitmap=SnapBitmap
End...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.