como puedo unir estas 3 cosas

[Judgement]

Saludos, prueba esto, necesitas dos formularios y un modulo

En el modulo agrega este procedimiento:

Código vb:

Public Sub main()
    Dim fSplash As New frmSplash
    
    DoEvents
    Load frmMain
    frmSplash.Show vbModal
    frmMain.Show
    
    Set fSplash = Nothing
End Sub
 

En el formulario Splash:

Código vb:

Dim intContador As Integer
 
Private Sub Form_Load()
    intContador = 0
    Timer1.Interval=100
    ProgressBar1.Max=30
End Sub
 
Private Sub Timer1_Timer()
    intContador = intContador + 1
    ProgressBar1.Value = intContador
    If ProgressBar1.Value = 30 Then
        Timer1.Enabled = False
        Unload Me
    End If
End Sub
 

Espero que te sea de utilidad