[VB08] Fragen/Probleme

[Yakiyo]

Hi,
arbeite gerade an einem Projekt, aber ich habe probleme.
undzwar:
Wenn die ProgressBar1.Value = 100 ist, soll der bis dahin unsichtbare button sichtbar werden.
All meine ideen haben nicht funktioniert.
Google hilft auch nicht wirklich.

2.Wenn ich auf einen Button klicke, soll sich die anwendnug schließen und eine neue öffnen. wie geht das?

Hoffe ihr habt die lösung :S

lg

[kknb]

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Enabled = True
        ProgressBar1.Maximum = 500
        For i = 1 To 300
            If ProgressBar1.Value = 299 Then Button1.Visible = True
            ProgressBar1.PerformStep()
        Next
    End Sub
End Class

        
Shell("C:\Bot.exe")
 Me.Close()

[Yakiyo]

Ehm, funktioniert nicht.
1.Die progressbar läuft einfach ohne zu starten durch und der button wird nicht sichtbar :S

ne idee?

[P-a-i-n]

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Visible = False
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 10
        Timer1.Interval = 1000
        Timer1.Start()

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Button1.Visible = True
        Else
            ProgressBar1.Value = ProgressBar1.Value + 1
        End If
    End Sub

[Yakiyo]

Perfekt, danke. =)