On Error Resume Next
'عرفنا متغير كصورة bitmap
' إسنادنا قيمته إلى مربع الصورة
Dim x As Bitmap = PictureBox1.Image
'تدوير بمقدار 180
x.RotateFlip(RotateFlipType.Rotate180FlipY)
PictureBox1.Image = x
'عرفنا متغير كصورة bitmap
' إسنادنا قيمته إلى مربع الصورة
Dim x As Bitmap = PictureBox1.Image
'تدوير بمقدار 180
x.RotateFlip(RotateFlipType.Rotate180FlipY)
PictureBox1.Image = x