Type SAFEARRAYBOUND
  cElements As Long
  lLbound As Long
End Type
 
Type SAFEARRAY2D
  cDims As Integer
  fFeatures As Integer
  cbElements As Long
  cLocks As Long
  pvData As Long
  Bounds(0 To 1) As SAFEARRAYBOUND
End Type
 
Type BITMAP
  bmType As Long
  bmWidth As Long
  bmHeight As Long
  bmWidthBytes As Long
  bmPlanes As Integer
  bmBitsPixel As Integer
  bmBits As Long
End Type
 
'für  VB 6!
Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" ( _
    ByRef Ptr() As Any) As Long
 
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
    ByRef pDst As Any, ByRef pSrc As Any, ByVal ByteLen As Long)
 
Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" ( _
    ByVal hObject As Long, ByVal nCount As Long, _
    ByRef lpObject As Any) As Long
 
Public Function Invertieren()
 
Dim pic() As Byte
Dim sa As SAFEARRAY2D
Dim bmp As BITMAP
Dim r As Long, g As Long, b As Long
 
GetObjectAPI Picture1.Picture, Len(bmp), bmp
 
With sa
  .cbElements = 1
  .cDims = 2
  .Bounds(0).lLbound = 0
  .Bounds(0).cElements = bmp.bmHeight
  .Bounds(1).lLbound = 0
  .Bounds(1).cElements = bmp.bmWidthBytes
  .pvData = bmp.bmBits
End With
 
CopyMemory ByVal VarPtrArray(pic), VarPtr(sa), 4
 
For i = 0 To UBound(pic, 1)
  For j = 0 To UBound(pic, 2)
    pic(i, j)= 255 - pic(i, j)
  Next j
Next i
 
CopyMemory ByVal VarPtrArray(pic), 0&, 4
 
Picture1.Refresh
 
end function

Unternehmt etwas gegen TCPA!! Lasst eucht nicht Kontrollieren!!