BMP Manipulation

Gad vide hvorfor jeg poster denne kode her?
Men prøv at lave to sjove bmp billeder med SAMME størelse og de skal være forskellige ( helt meget ).
kald dem b1.bmp og b2.bmp og lig dem ind på c drevet og kør denne kode.

Dim F(2) As Integer
Dim B(2) As Byte
Dim use As Single
Dim Change As Single
F(0) = FreeFile
Open "c:\\b1.bmp" For Binary As #F(0)
    F(1) = FreeFile
    Open "c:\\b2.bmp" For Binary As #F(1)
        F(2) = FreeFile
        Open "c:\\b3.bmp" For Binary As #F(2)
            Do Until EOF(F(0))
                Get #F(0), , B(0)
                Get #F(1), , B(1)
                Change = Seek(F(0)) / LOF(F(0))
                If Change < 0.25 Then
                    use = 0
                ElseIf Change > 0.75 Then
                    Change = 1 - Change
                    If Change < 0.125 Then
                        use = Change * 4
                    Else
                        use = 1 - (Change * 4)
                    End If
                    Change = 1 - Change
                    use = 1 - use
                Else
                    use = 0
                    Change = Change - 0.25
                    Change = Change * 2
                    use = Change
                End If
                If use < 0 Then use = 0
                If use > 1 Then use = 1
                B(2) = (B(0) * use) + (B(1) * (1 - use))
                Put #F(2), , B(2)
            Loop
        Close #F(2)
     Close #F(1)
Close #F(0)
Close
Reset

Og prøv så at se på c drevet og kig ind i b3.bmp.
Sejt Nok.
---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?