调用窗体显示为空

如下，form5显示出来，一直是只有窗体边框，里面的内容全是空的。 我把最后的Form5.Hide试了一下，窗体可以完全显示，但是显示的比较完，不是在Form5.Show以后开始显示的。

求救，求解答


Private Sub Form_Load()
Form5.Show
Dim stp As String
stp = GetSysTempPath
Dim l As String
Dim m As String
verold = "10"
DownloadFile "http://yibadao.net/update/ybdfinal.txt", stp & "ybd.txt"
DownloadFile "http://yibadao.net/update/ybdfinalup.txt", stp & "ybdup.txt"
If Dir(stp & "\ybd.txt") = "" Or Dir(stp & "\ybdup.txt") = "" Then
    inte = 0
    Exit Sub
Else
    inte = 1
    Open stp & "\ybd.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, l   '一行一行读取
    vernew = vbCrLf & l  '写入到text1里面
    Loop
    Close #1
    Open stp & "\ybdup.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, m   '一行一行读取
    upinfo = vbCrLf & m  '写入到text1里面
    Loop
    Close #1
End If
Form2.Label2.Caption = upinfo
Kill stp & "\ybd.txt"
Kill stp & "\ybdup.txt"
If verold <> vernew Then
      Form2.Show
Form5.Hide
End If
End Sub

补充：VB ,  基础类