Prośba o zakodowanie progressbara

Cześć mam małą prośbę o kod do progressbara .

Chodzi o to ,żeby podczas kliknięcia przycisku Detect Device progressbar się uruchomił i jak się skończy ładować pasek progressbara wyskoczył MessageBox a w nim :

Status : Connected

Device : Android 4.0.1

+ na początku przed wyskoczeniem MessageBoxa ,żeby Label'y z Not Detected zmieniły się na detected + do tego kolor zielony .

Próbowałem jakoś to zakodować ,ale coś mi nie wychodzi .

Dlatego potrzebuję pomocy .

Wiem ,że to tak chaotycznie napisane . Jeżeli ktoś nie rozumie to na PW mogę dać taki przykładowy filmik to może zrozumie .

Pozdrawiam .

Jako kod timera:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        FlatProgressBar1.Increment(1)        If FlatProgressBar1.Value = FlatProgressBar1.Maximum Then            Timer1.Stop()            Dim key As Integer            key = (Rnd() * 1)            Select Case key                Case 1            End Select            MessageBox.Show("Status : Connected Device : Android 4.0.1", "Successfull")            FlatLabel10.Text = "Detected!"            FlatLabel10.ForeColor = Color.Green        End If    End Sub

I jako kod buttonu

Private Sub FlatButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlatButton3.Click        Timer1.Start()    End Sub

Działa .

Dzięki wielkie !