Option Explicit

Public 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

Public Const DESTINVERT = &H550009
Public Const MERGPAINT = &HBB0226
Public Const NOTSRCCOPY = &H330008
Public Const SRCCOPY = &HCC0020
Public Const SRCAND = &H8800C6
Public Const SRCERASE = &H440328
Public Const SRCINVERT = &H660046
Public Const SRCPAINT = &HEE0086

Option Explicit
Dim CopyWert(6) As String

Private Sub Form_Load()
  CopyWert(0) = "&HBB0226"
  CopyWert(1) = "&H330008"
  CopyWert(2) = "&HCC0020"
  CopyWert(3) = "&H8800C6"
  CopyWert(4) = "&H440328"
  CopyWert(5) = "&H660046"
  CopyWert(6) = "&HEE0086"

  pic2.Width = pic1.Width
  pic2.Height = pic1.Height
  pic1.Picture = LoadPicture(App.Path & "\Geier.jpg")

  optFilter(2).Value = True
End Sub

Private Sub optFilter_Click(Index As Integer)
  pic2.Cls
  pic2.AutoRedraw = False
  Call BitBlt(pic2.hDC, 0, 0, pic1.Width, pic1.Height, _
              pic1.hDC, 0, 0, CopyWert(Index))
End Sub

Private Sub pic2_Paint()
  Dim i As Integer

  For i = 0 To 6
    If optFilter(i).Value = True Then Exit For
  Next i
    Call BitBlt(pic2.hDC, 0, 0, pic1.Width, pic1.Height, _
                pic1.hDC, 0, 0, CopyWert(i))
End Sub