Jag startar upp mitt project med en splashform och därefter form1.
Jag har varit tvungen att lägga in en timer, så att splashen syns.
Nu ville jag ha en progressbar som visar hur Form1 laddas.

I en modul så startar jag Sub Main()
<code>

Sub Main()
' Show the splash form
DoEvents
frmSplash.Show 'as the form loads, the timer will start
End Sub

Sub ResumeStartUp()
' Load the main form
DoEvents
Load Form1
' Load any other forms you may have that you need
' Show the main form
Form1.Show
End Sub
</code>
I frmSplash
<code>
Private Sub tmrShow_Timer()
tmrShow.Enabled = False
ProgressBar1.Min = 0
ProgressBar1.Max = 100

ResumeStartUp 'resume the startup
Unload Me 'unload the form (hide it)
End Sub
</code>

Men hur skall jag kuna få värde till progressbaren?

ProgressBar1.Value = 50

Var skall den läggas in??

Teta att skriva:
<code>
'Module: mdlMain.Bas
Sub Main()
' Show the splash form
frmSplash.Show 'as the form loads, the timer will start

'Process paint mesage
frmSplash.Refresh

' Load any other forms you may have that you need
' Show the main form
Form1.Show

'Unload the splash form
Unload frmSplash
End Sub

'Form: frmSplash
Private Sub Form_Load()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
End Sub

'Form: frmMain_Load

Private Sub Form_Load()
' Kod ...
frmSplash.ProgressBar1.Value = 25

' Kod ...
frmSplash.ProgressBar1.Value = 50

' Kod ...
frmSplash.ProgressBar1.Value = 75

' Kod ...
frmSplash.ProgressBar1.Value = 100
End Sub
</code>

Tack Andreas.
Kanske inte helt perfekt, men duger :-)