Sub Button1_Click
............
bitmap1.Initialize3(vv.TakeScreenshot)
Dim Out As OutputStream
Out = File.OpenOutput(dir, "image.jpg", False)
bitmap1.WriteToStream(Out, 100, "JPEG")
Out.Close
MediaManager.SetMediaFromFile(Panel2, dir, "image.jpg","image/*", CreateMap(MediaManager.REQUEST_ZOOMIMAGEVIEW: True))
End Sub