PrivateSub Timer1_Timer()
[size=small]Dim intX AsInteger, intY AsInteger[/size]
[size=small]Dim intI AsInteger, intJ AsInteger[/size]
[size=small]Dim intWidth AsInteger, intHeight AsInteger[/size]
[size=small]intWidth = 800 'Screenwidth[/size]
[size=small]intHeight = 300 'Screenheight[/size]
[size=small]Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) ' BitBlt screen onto form[/size]
[size=small]Randomize[/size]
[size=small]blnLoop = vbTrue[/size]
[size=small]DoWhile blnLoop = vbTrue[/size]
[size=small]intX = (intWidth - 70) * Rnd[/size]
[size=small]intY = (intHeight - 128) * Rnd[/size]
[size=small]intI = 2 * Rnd - 1 ' Horizontal displacement[/size]
[size=small]intJ = 3 * Rnd + 1 ' Vertical displacement[/size]
[size=small]' Move a part of the screen 1 pixel In a semi-random direction, To Get the "melting" effect[/size]
[size=small]Call BitBlt(Picture1.hdc, intX + intI, intY + intJ, 1, 40, Picture1.hdc, intX, intY, vbSrcCopy)[/size]
[size=small]DoEvents[/size]
[size=small]Loop[/size]
[size=small]Set frmflame = Nothing' Remove form from memory[/size]
[size=small]End[/size]
[size=small]EndSub[/size]
[size=small]'Form Kodu Bitti[/size]
[size=small]'-------------------------------------------------------------------------------**[/size]
[size=small]'Module kodu[/size]
[size=small]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[/size]
[size=small]DeclareFunction GetPixel Lib "gdi32" (ByVal hdc AsLong, ByVal x AsLong, ByVal y AsLong) AsLong[/size]
[size=small]DeclareFunction SetPixel Lib "gdi32" (ByVal hdc AsLong, ByVal x AsLong, ByVal y AsLong, ByValcrColor AsLong) AsLong[/size]
[size=small]PublicConst SRCCOPY = &HCC0020[/size]
[size=small]PublicConst SRCPAINT = &HEE0086[/size]
PublicConst SRCAND = &H8800C6