'Forma 1 Adet PictureBox 1 Adet Timer ve Module Ekleyin yeter..
'Timer1 intervali =100 olsun


'Module kodu
Kod:
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long Public Const SRCCOPY = &HCC0020 Public Const SRCPAINT = &HEE0086 Public Const SRCAND = &H8800C6
'Form Kodu
Kod:
Private Sub Timer1_Timer() Dim intX As Integer, intY As Integer Dim intI As Integer, intJ As Integer Dim intWidth As Integer, intHeight As Integer intWidth = Picture1.Width / 10 intHeight = Picture1.Height / 10 Call BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, vbSrcCopy) Randomize blnLoop = vbTrue Do While blnLoop = vbTrue intX = (intWidth - 70) * Rnd intY = (intHeight - 128) * Rnd intI = 2 * Rnd - 1 intJ = 3 * Rnd + 1 Call BitBlt(Picture1.hdc, intX + intI, intY + intJ, 1, 40, Picture1.hdc, intX, intY, vbSrcCopy) DoEvents Loop Set frmflame = Nothing End End Sub

__________________