请问各位用VB设计系统，设计一个窗体来展示系统信息，在系统加载时首先加载展示窗体，怎么实现呢，我都试了好几次了不行

请问各位用VB设计系统，设计一个窗体来展示系统信息，在系统加载时首先加载展示窗体，怎么实现呢，我都试了好几次都不行

我用了下面的代码，添加了进度条和时钟的啊

Private Sub Timer1_Timer()
On Error Resume Next
Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1
If Me.ProgressBar1.Value = 2 Then
Form1.Show
Form9.Hide
End If
End Sub

首先你应该设置Timer1的Interval属性。具体设置为多少要看你想让展示窗体显示多久。

在这里假设显示20秒，设置Interval属性为1000，并设置Enabled = True

设置ProgressBar1的maxvalue=100，minValue=0

Private Sub Timer1_Timer()
On Error Resume Next
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then

Timer1.Enabled=false
Form1.Show
Form9.Hide
End If
End Sub