Friend Sub Paint(ByVal s As Bitmap, ByVal smask As Bitmap, ByVal x As Integer, _
   ByVal y As Integer)
        Dim g As Graphics = Form1.PictureBox1.CreateGraphics
        Dim g2 As Graphics = Form1.PictureBox2.CreateGraphics
        Dim Pbox(9) As PictureBox
        For i As Integer = 0 To 1
            Pbox(i) = New PictureBox
        Next
        Form1.PictureBox2.Load(myPfad + "hintergrundmitgang.gif")
        Pbox(0).Load(myPfad & "ufo.gif")
        Pbox(1).Load(myPfad & "ufo_mask.gif")
        Using dcDest As New GdiDeviceContext(g)
            Using dcSrc As New GdiDeviceContext(g2)
                Using dcBitmap As New GdiDeviceContext(Pbox(0).CreateGraphics)
                    Using dcSrcMask As New GdiDeviceContext(Pbox( _
                      1).CreateGraphics)
                        BitBlt(dcDest, 0, 0, Form1.PictureBox1.Width, _
                        Form1.PictureBox1.Height, dcSrc, 0, 0, _
                        TernaryRasterOperations.SRCCOPY)
                        BitBlt(dcDest, x, y, Pbox(0).Image.Width, Pbox( _
                        0).Image.Height, dcBitmap, 0, 0, _
                        TernaryRasterOperations.SRCAND)
                        BitBlt(dcDest, x, y, Pbox(1).Image.Width, Pbox( _
                        1).Image.Height, dcSrcMask, 0, 0, _
                        TernaryRasterOperations.SRCINVERT)
                    End Using
                End Using
            End Using
        End Using
        'g.DrawImage(Pbox(1).Image, x, y)
    End Sub