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 就提示这里 我看这里也应该有问题 他也没有定义什么的

load mainform

这个 mainform 是一个窗体,你的工程里有这个窗体吗?

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

424 的错误,意思是说这里要求是一个对象.
如果 load 对象 出现 424 错误,那就说明 ,

1\这个对象不存在.
2\这个对象名字写错了.
3\对象重名了,VB无法区分.

从这三个方面去检查一下.

收到的鲜花

• multiple1902 于 2008-10-20 17:15 送鲜花  18朵   附言：好文章

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