ik heb het geprobeerd en mij hele script zal ik even hier onder zetten
van de background worker staat er nog wel in
[SQL]Public Class head_menu
Dim i As Integer = 0
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
level_1.Show()
Me.Hide()
End Sub
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
level_1.Show()
Me.Hide()
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Do Until i = "100"
If BackgroundWorker1.WorkerSupportsCancellation = True Then
Exit Sub
End If
ProgressBar1.Value = i
BackgroundWorker1.ReportProgress(i)
System.Threading.Thread.Sleep(1)
Loop
End Sub
Private Sub head_menu_Load(sender As Object, e As EventArgs) Handles MyBase.Load
My.Computer.Audio.Play(My.Resources.main_song, AudioPlayMode.BackgroundLoop)
BackgroundWorker1.RunWorkerAsync()
Timer1.Start()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(0)
i = i + 1
Label4.Text = 0
End Sub
Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
End
End Sub
Private Sub Label3_Click(sender As Object, e As EventArgs) Handles Label3.Click
End
End Sub
End Class[/SQL]