VB6.0怎么把frmsplash设置成在form1前启动

在VB6.0中，为了使frmSplash（ Splash Form）在Form1之前显示，你需要创建并设置Splash Form的行为。以下是简单的步骤：

1. 创建一个新的模块（Module），或者如果你已经有 Splash Form，跳过这一步。

   Private Sub Command1_Click()
       Dim splash As SplashForm ' 假设 SplashForm 的名称为 SplashForm
   
       ' 创建或实例化 SplashForm
       Set splash = New SplashForm
       
       ' 显示 Splash Form
       splash.Show vbModeless ' vbModeless 表示形式以非模式方式显示
       Application.Wait Now + TimeValue("0:00:05") ' 暂停5秒，你可以调整这个时间来控制显示时长
   
       ' 关闭 Splash Form 并切换到 Form1
       splash.Hide
       Me.Visible = True ' Form1 的可见性
   End Sub

2. 在 Form1 的 Form_Load 事件中调用上面定义的方法，这样每次打开 Form1 时，SplashForm 都会先显示。

   Private Sub Form_Load()
       Command1_Click ' 调用创建 Splash Form 显示的方法
   End Sub

注意，上述代码假设你在 SplashForm 中有一个名为`Command1`的按钮用于关闭它，或者你已经在模块中手动编写了关闭 Splash Form 的逻辑。