Hallo,

ich habe grade ne Verzweiflung nach 90minuten bingen....

Ich habe ein Programm, allerdings soll der Nutzer von einem Begrüßungsbildschirm Begrüßt werden. Ich möchte damit die Progressbar sich abhängig vom Timer füllt. Allerdings läuft nur der timer.... Dann habe ich alles umgeändert. Jetzt wird die Bedingung zwar erfüllt, aber ich sehe es nicht. Es wird direkt das HauptFormular geöffnet.

Das ist der Code:

Private Sub Form_Load()

    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    lblProductName.Caption = App.Title

Static i As Integer
    ProgressBar1.Value = Val(ProgressBar1.Value) + 10
    If ProgressBar1.Value < 100 Then
            For i = 1 To 100 Step 5
            Next
       Timer1.Enabled = False
       Unload Me
       frmEingabe.Show
    End If

End Sub

Private Sub Frame1_Click()
    Unload Me
    frmEingabe.Show
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
    frmEingabe.Show
End Sub