一个vb很基础的问题，一直没搞明白

我使用以下代码，总是计算完成后，form才显示
Private Sub Form_Load()
DoEvents
For i = 1 To 100000
Label1.Caption = i
Next
End Sub
如果我希望在form中可以看到label从1不停的变，应该怎么写。