pomoc kodowanko na czekanko

stworzyłem splash screen wg tego poradnika: http://make-cash.pl/...plikacji-t3497/

nie działa mi przez to czerwony krzyżyk do zamykania apki nie wiesz jak to rozwiązać?

2 sprawa mam hacka, progressbar nie zakodowany i przycisk h@ack, po naciśnięciu jego chce żeby progressbar coś się tam ładował raz wolniej raz szybciej i żeby na początku wyskakiwało "device connected" i w wersji do filmików żeby załadował sie cały i potem wyskoczyło okienko "success" i tam jakiś tekst.

a w wersji którą będą ludzie pobierać żeby podczas ładowania progressbara czy przed czy po ( nigdy po ukończeniu ładowania ) może być żeby w różnych momentach wyskakiwało okno że plik uszkodzony prosze pobrać ponownie

form1:

Public Class Form1    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 100 Then            Form2.Show()            Me.Hide()        End If    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load    End SubEnd Class

form2:

 Public Class Form2    Private Sub AscThemeContainer1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AscThemeContainer1.Click    End Sub    Private Sub AscButton_Big1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AscButton_Big1.Click        Form3.Show()    End SubEnd Class

form3:

Public Class Form3    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        End    End Sub    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked        Process.Start("http://przykładowylink/")    End SubEnd Class

 

 

2 sprawa mam hacka, progressbar nie zakodowany i przycisk h@ack, po naciśnięciu jego chce żeby progressbar coś się tam ładował raz wolniej raz szybciej i żeby na początku wyskakiwało "device connected" i w wersji do filmików żeby załadował sie cały i potem wyskoczyło okienko "success" i tam jakiś tekst.

//Kliknij dwa razy na button i wklep to:     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Timer1.Start()    End Sub

//Przejdz do timer'a i wpisz to:    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "device connected"        End If        If ProgressBar1.Value = 10 Then            Timer1.Interval = 30        End If        If ProgressBar1.Value = 20 Then            Timer1.Interval = 60        End If        If ProgressBar1.Value = 30 Then            Timer1.Interval = 90        End If        If ProgressBar1.Value = 40 Then            Timer1.Interval = 150        End If        If ProgressBar1.Value = 50 Then            Timer1.Interval = 10        End If        If ProgressBar1.Value = 60 Then            Timer1.Interval = 300        End If        If ProgressBar1.Value = 70 Then            Timer1.Interval = 200        End If        If ProgressBar1.Value = 80 Then            Timer1.Interval = 50        End If        If ProgressBar1.Value = 99 Then            Timer1.Stop()            MsgBox("jakis tam tekst", MsgBoxStyle.Information, "success")        End If    End Sub

 

a w wersji którą będą ludzie pobierać żeby podczas ładowania progressbara czy przed czy po ( nigdy po ukończeniu ładowania ) może być żeby w różnych momentach wyskakiwało okno że plik uszkodzony prosze pobrać ponownie

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick        ProgressBar1.Increment(1)        If ProgressBar1.Value = 1 Then            Label1.Text = "device connected"        End If        If ProgressBar1.Value = 10 Then            Timer1.Interval = 30        End If        If ProgressBar1.Value = 20 Then            Timer1.Interval = 60        End If        If ProgressBar1.Value = 30 Then            Timer1.Interval = 90        End If        If ProgressBar1.Value = 40 Then            Timer1.Interval = 150            Timer1.Stop()            MsgBox("Blad", MsgBoxStyle.Critical, "Error") 'wyświetla błąd            End ' zamyka aplikacje.        End If        If ProgressBar1.Value = 50 Then            Timer1.Interval = 10        End If        If ProgressBar1.Value = 60 Then            Timer1.Interval = 300        End If        If ProgressBar1.Value = 70 Then            Timer1.Interval = 200        End If        If ProgressBar1.Value = 80 Then            Timer1.Interval = 50        End If        If ProgressBar1.Value = 99 Then            Timer1.Stop()            MsgBox("jakis tam tekst", MsgBoxStyle.Information, "success")        End If    End Sub

W razie problemów chętnie pomogę na GG: 28884369

dziękówa zaraz obczaje i ewentualnie dam znać na gg

musiałem kod przerobić bo nie mam niestety "ProgressBar1" tylko "AscProgressBar1"

po modyfikacji wywala :

http://prntscr.com/4zky0r

i ogólnie to bym najchętniej chciał żeby otwierało mi sie form3

a nie jakieś tam okienka

edit:

wygenerowałęm ten increment dla tego thema i wywalilo to http://prntscr.com/4zl4jn