Jak po wybraniu i kliklnięcie w button i żeby się pojawił telekod po progressbar i msgbox

Question

Proszę mi poprawić kod bo interesuje mnie coś takiego:

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Point załadowaniu progress bar tu żeby pojawił się kod 
End Sub


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

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
            MsgBox("WGRANO"po załadowaniu progress bar do końca i żeby pojawił msgbox "WGRANO" i w textboxie kod 

    End If
End Sub

 

Comments

Czekam na pomoc