Det går att använda StretchBlt.Sv: Spegelvänd bild i VB?
Exempel:
Option Explicit
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal nWidth As Long, _
ByVal nHeight As Long, _
ByVal hSrcDC As Long, _
ByVal xSrc As Long, _
ByVal ySrc As Long, _
ByVal nSrcWidth As Long, _
ByVal nSrcHeight As Long, _
ByVal dwRop As Long) As Long
Private Sub Command1_Click()
Dim lReturn As Long
lReturn = StretchBlt(Picture2.hdc, _
0&, _
0&, _
100, _
100, _
Picture1.hdc, _
100, _
100, _
-100, _
-100, _
vbSrcCopy)
Picture2.Refresh
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture2.AutoRedraw = True
End Sub