ViewImage

'Inserire questa API in un modulo BAS o nelle dichiarazioni

'generali del FORM dove viene utilizzata la procedura.

'La procedura puo' essere applicata solo alle PictureBox.


Private Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC 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 dwRop As Long) As Long

Private Sub cmdPositivoNegativo_Click()
Dim ret As Long
'Inserire una PictureBox e chiamarla Picture1 o se il nome viene modificato, cambiare il nome all'interno della procedura

ret = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, Picture1.hDC, 0, 0, &H550009)
End Sub