Need alot of awnsers. Bitblt, Control Arrays...

[MotoX646]

Ok, I just looked at your code..

Your Module1.vb is just all wrong..

Module Module1
    Public beep As Integer 'pic for bee
    Public maskp As Integer 'pic for mask
    Public beepic(2) As Object
    Public maskpic(2) As Object
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Public KeyArray(300) As Boolean
    Public playerleft As Integer
    Public playertop As Integer
    Public vbSrcAnd As VariantType = &H8800C6
    Public vbSrcCopy As VariantType = &HCC0020
    Public vbSrcPaint As VariantType = &HEE0086
        beepic(1).Image = Form2.Image1.Image
        beepic(2).Image = Form2.Image2.Image
        maskpic(1).Image = Form2.Imagemask1.Image
        maskpic(2).Image = Form2.Imagemask2.Image
        beepic(1).Size = Form2.Image1.Size
        beepic(2).Size = Form2.Image1.Size
        maskpic(1).Size = Form2.Image1.Size
        maskpic(2).Size = Form2.Image1.Size
End Module

... as far as I know, you can't assign properties to arrays like a declaration. You need to put that stuff (lines 13 to 20) in a sub or function. Call it from a Form_Load event or something..

Also, from the looks of your Form2 images, you are trying to use two images (main image and mask image) to create a transparent image. You don't have to do that in VB.Net. You can just use a .png image with transparency/opacity set in an image editor. There are other ways too..