Dim vw As View = Sender
If lstMenu.IsInitialized AND lstMenu.Visible Then lstMenu.Visible = False
lstMenu.Initialize("lstMenu")
lstMenu.Color = Colors.DarkGray
sMenuMode = "View"
lstMenu.AddSingleLine("Origin")
lstMenu.AddSingleLine("Scale")
lstMenu.AddSingleLine("Stretch")
lstMenu.AddSingleLine("Zoom")
Activity.AddView(lstMenu, vw.left, oVideo.Top, 200dip, 460dip)
lstMenu.Visible = True