Flame in vb 6.0

Private Sub flamegd()
Dim PosY, PosX, Rouge, Vert, Bleu, Conteur, Conteur2
On Error Resume Next
DrawWidth = 2
PosX = 1500
Do
Conteur2 = Conteur2 + 1
PosX = PosX - 30
PosY = 3000
If Conteur2 > 25 Then GoTo terminal
Rouge = 255
Vert = 0
Conteur = 0

Do
Conteur = Conteur + 1
If Conteur > 50 Then GoTo fin
PosY = PosY - 32
'PosX = PosX - 4
If Conteur > 3 Then Vert = Vert + Int(Rnd * 40)
If Conteur > 2 Then Rouge = Rouge - (1 / 4)
If Conteur > 20 Then
Vert = Rouge - Int(Rnd * 4)
Rouge = Vert - Int(Rnd * 20)
End If

      PSet (PosX, PosY), RGB(Rouge, Vert, Bleu)
      DoEvents  ' Laisse s'effectuer d'autres
  Loop        ' traitements.
fin:


DoEvents
Loop
terminal:
End Sub
Private Sub flamedg()
Dim PosY, PosX, Rouge, Vert, Bleu, Conteur, Conteur2
On Error Resume Next
DrawWidth = 2
Do
Conteur2 = Conteur2 + 1
PosX = PosX + 30
PosY = 3000
If Conteur2 > 25 Then GoTo terminal
Rouge = 255
Vert = 0
Conteur = 0

Do
Conteur = Conteur + 1
If Conteur > 50 Then GoTo fin
PosY = PosY - 32
'PosX = PosX - 4
If Conteur > 3 Then Vert = Vert + Int(Rnd * 40)
If Conteur > 2 Then Rouge = Rouge - (1 / 4)
If Conteur > 20 Then
Vert = Rouge - Int(Rnd * 4)
Rouge = Vert - Int(Rnd * 20)
End If

      PSet (PosX, PosY), RGB(Rouge, Vert, Bleu)
      DoEvents  ' Laisse s'effectuer d'autres
  Loop        ' traitements.
fin:


DoEvents
Loop
terminal:
End Sub

Private Sub Form_Load()
Timer1.Interval = 250
End Sub

Private Sub Timer1_Timer()
flamedg
flamegd
End Sub