YTEragonWTF-PictureBox da Erime Efekti

Merhaba Arkadaşlar Ben YTEragonWTF Alın Size 'Form Kodu
PrivateSub Timer1_Timer()
Dim intX AsInteger, intY AsInteger
Dim intI AsInteger, intJ AsInteger
Dim intWidth AsInteger, intHeight AsInteger

intWidth = 800 'Screenwidth
intHeight = 300 'Screenheight


Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) ' BitBlt screen onto form

Randomize

blnLoop = vbTrue
DoWhile blnLoop = vbTrue
intX = (intWidth - 70) * Rnd
intY = (intHeight - 128) * Rnd

intI = 2 * Rnd - 1 ' Horizontal displacement
intJ = 3 * Rnd + 1 ' Vertical displacement

' Move a part of the screen 1 pixel In a semi-random direction, To Get the "melting" effect
Call BitBlt(Picture1.hdc, intX + intI, intY + intJ, 1, 40, Picture1.hdc, intX, intY, vbSrcCopy)

DoEvents
Loop

Set frmflame = Nothing' Remove form from memory
End
EndSub

'Form Kodu Bitti
'-------------------------------------------------------------------------------**
'Module kodu
DeclareFunction BitBlt Lib "gdi32" (ByVal hDestDC AsLong, ByVal x AsLong, ByVal y AsLong, ByValnWidth AsLong, ByValnHeight AsLong, ByVal hSrcDC AsLong, ByVal xSrc AsLong, ByVal ySrc AsLong,ByVal dwRop AsLong) AsLong
DeclareFunction GetPixel Lib "gdi32" (ByVal hdc AsLong, ByVal x AsLong, ByVal y AsLong) AsLong
DeclareFunction SetPixel Lib "gdi32" (ByVal hdc AsLong, ByVal x AsLong, ByVal y AsLong, ByValcrColor AsLong) AsLong


PublicConst SRCCOPY = &HCC0020
PublicConst SRCPAINT = &HEE0086
PublicConst SRCAND = &H8800C6
'bitti