Private Sub Timer5_Timer()
Dim i, p, n
Dim temp
If jjjj > Data1.Recordset.Fields("bjxb") Then
jjjj = 0
Timer5.Enabled = False
Else
For i = 1 To bjget(jjjj + 2) * 0.088
mainwindow.showbox3.Circle (bjget(jjjj), bjget(jjjj + 1)), i, RGB(1.5 * i, 1.5 * i, 1.5 * i), , , 1.8
Next i
'x = Rnd * bjget(j + 2) * 0.078
' y = Rnd * bjget(j + 2) * 0.078
' For i = bjget(j + 2) * 0.078 To bjget(j + 2) * 0.078 + 4
' mainwindow.showbox.PSet (Rnd * bjget(j + 2) * 0.078, Rnd * bjget(j + 2) * 0.078), vbBlack
'Next i
For n = 1 To bjget(jjjj + 2) * 0.088
mainwindow.showbox3.PSet (Rnd * bjget(jjjj + 2) * 0.078, Rnd * bjget(jjjj + 2) * 0.078), vbBlack
Next
For p = 1 To 5
mainwindow.showbox3.Circle (bjget(jjjj), bjget(jjjj + 1)), 7 - 0.12 * p, RGB(0, 0, 0), , , 2.7
Next p
For temp = 61 To bjget(jjjj + 2) * 0.078
mainwindow.showbox3.Circle (bjget(jjjj), bjget(jjjj + 1)), temp, RGB(255, 255, 255), , , 2.7
Next temp
End If
jjjj = jjjj + 3
End Sub