visual basic 6.5

[Vlad444]

нужна срочная помощь...
эта программа делает небо в виде точек..

Private Sub Command1_Click()
Picture1.Cls

Picture1.Scale (0, 0)-(500, 500)
For k = 1 To 200
Picture1.PSet (Rnd * 500, Rnd * 500), vbWhite
Next k
End Sub

эта программа делает землю и солнце, и еще дана точка которая вращаеться по оси...
Private Sub Command1_Click()
Dim Задержка As Single
Dim ЧислоОборотов As Single
Dim f, t As Integer
Form1.Height = 10000
Form1.Width = 10000
BackColor = vbBlack

Scale (-6, 6)-(6, -6)
ЧислоОборотов = Val(Text1.Text)


Задержка = 30000   'регулировка скорости движения
FillStyle = 1
FillColor = vbWhite
Circle (0, 0), 4, vbWhite    'изображение орбиты Земли
FillStyle = 0
FillColor = vbYellow

Circle (0, 0), 1 'изображение Солнца

For f = 1 To 360 * ЧислоОборотов  ' Движение
    
   FillStyle = 0
   FillColor = vbBlue
    Circle (4 * Sin(6.28 / 360 * f), 4 * Cos(6.28 / 360 * f)), 0.35 ' Земля (синяя)

        For t = 1 To Задержка 'Задержка времени (регулировка скорости)
           a = Sin(a + 1)
        Next t
        
   FillStyle = 0
   FillColor = vbBlack
     Circle (4 * Sin(6.28 / 360 * f), 4 * Cos(6.28 / 360 * f)), 0.35 ' Земля (черная)
     
     FillStyle = 1
FillColor = vbWhite
Circle (0, 0), 4, vbWhite    'изображение орбиты Земли
     
     FillStyle = 0
FillColor = vbYellow

Circle (0, 0), 1 'изображение Солнца
    
Next f
FillStyle = 0
   FillColor = vbBlue
Circle (4 * Sin(6.28 / 360 * f), 4 * Cos(6.28 / 360 * f)), 0.35 'Заключительное состояние Земли

FillStyle = 0
FillColor = vbYellow

Circle (0, 0), 1 'изображение Солнца
End Sub

нужно сделать так, чтобы на одной программе было небо и земля, и чтобы небо в виде точек не исчезало, когда точка вращается вокруг солнца..помогите плиз!