不知道这个算不算启动
Dim opentime As Integer
Option Explicit
Private Sub Form_Load()
opentime = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set frmlogo = Nothing
End Sub
Private Sub Timer1_Timer()
opentime = opentime + 1
ProgressBarload.Value = opentime
If opentime > 99 Then
Load frmlogin
frmlogin.Show
Unload Me
End If
End Sub