Dim a1 As Integer

Private Sub Form_Load()
a1 = 0
Timer1.Enabled = True
End Sub

Private Sub Form_Resize()
Picture1.Left = 0
Picture1.Top = 0
Picture1.Width = Form1.ScaleWidth
Picture1.Height = Form1.ScaleHeight
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2
Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2
End Sub

Private Sub Timer1_Timer()
If a1 > 20 Then
Timer1.Enabled = False
Load mainform
mainform.Show
Unload Me
Else
a1 = a1 + 1
End If

End Sub
------------------------
一运行他就提示load mainform实事错误424 就提示这里 我看这里也应该有问题 他也没有定义什么的

有.!.我自己添加了一个。算form有两个窗体/

OK.问题解决了 谢谢你的回答.!这破书写的不明确  应该把第二个窗体的名称改成mainform ..!