'左转90
Dim piv As WinForm.PictureViewer = Forms("图片管理器").Controls("PictureViewer1")
Dim zp As String = piv.SelectedItem
If zp IsNot Nothing Then
Dim bmp As New bitmap(zp)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(zp)
Dim obj As object = piv.basecontrol.Controls(0)
Dim pic As Object = obj.panel1.controls("PictureSplitContainer").Panel1.controls("panel2").controls("C1PictureBox1")
pic.Image = bmp
End If