VB6.0中用line画的线可以在单击事件显示，但不能在加载事件中显示

Question

下面这些写在窗体加载事件(Form_Load())中运行后看不到图像
但是写在Form_Click中一单击图像就出来了，这是为什么呢？
Dim pi as Single
Form1.Cls
For i = 0 To 12 Step 1
Line (11 * Sin(pi * i / 6), 11 * Cos(pi * i / 6))-(13 * Sin(pi * i / 6), 13 * Cos(pi * i / 6)), RGB(20 * i, 200, 154) '添加12条整点的时间线
Next i
For i = 0 To 120 Step 2
Line (12 * Sin(pi * i / 60), 12 * Cos(pi * i / 60))-(13 * Sin(pi * i / 60), 13 * Cos(pi * i / 60)) '添加60条刻度
Next i

For i = 1 To 12 Step 1
If i = 12 Then
CurrentX = -0.5: CurrentY = 10: Print "12";
ElseIf i = 6 Then
CurrentX = -0.5: CurrentY = -10: Print "6";

Else
CurrentX = 11 * Sin(pi * i / 6): CurrentY = 11 * Cos(pi * i / 6): Print i
End If

Answer 1

formload是窗体加载的同时完成一些功能，所以不能显示
你可以将属性 AutoRedraw 设为 True就可以写到formload了