Button 1 :

Dim a As Double
a = 0
If TextBox1.Text = "" Then
MessageBox.Show("Wpisz Swój Nick!.", "Error")
Else
a = (a + 1)
End If
If ComboBox1.Text = "" Then
MessageBox.Show("Wybierz Serwer!", "Error")
Else
a = (a + 1)
End If
If ComboBox2.Text = "" Then
MessageBox.Show("Wybierz serwer i ilość RT!", "Error")
Else
a = (a + 1)
End If
If a = (3) Then
Timer1.Start()
ProgressBar1.Value = ProgressBar1.Minimum
End If

Button 2:

Timer1.Stop()

Timer1:

ProgressBar1.Increment(1) If ProgressBar1.Value = ProgressBar1.Maximum Then Timer1.Stop() Dim key As Integer key = (Rnd() * 1) Select Case key Case 1 End Select MessageBox.Show("RT dodano", "Pomyślnie!") Else If ProgressBar1.Value = 1 Then Label2.Text = "Ładowanie" End If If ProgressBar1.Value = 15 Then Label2.Text = "Łączenie ze serwerem" End If If ProgressBar1.Value = 25 Then Label2.Text = "Wczytywanie ustawień konta" End If If ProgressBar1.Value = 45 Then Label2.Text = "Wczytywanie danych..." End If If ProgressBar1.Value = 55 Then Label2.Text = "Wczytywanie danych - zakończone!" End If If ProgressBar1.Value = 80 Then Label2.Text = "Łączenie z bazą..." End If If ProgressBar1.Value = 86 Then Label2.Text = "Wczytano pomyślnie!" End If If ProgressBar1.Value = 95 Then Label2.Text = "Proces zakończył się SUKCESEM!" End If End If