k0mZ

VisualBasic

Jan 20th, 2014
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.12 KB | None | 0 0
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2. Timer1.Start()
  3. Button1.Enabled = False
  4. TextBox1.Enabled = False
  5. ProgressBar1.Value = ProgressBar1.Minimum
  6. End Sub
  7.  
  8. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
  9. ProgressBar1.Increment(1)
  10. If ProgressBar1.Value = ProgressBar1.Maximum Then
  11. Timer1.Stop()
  12. MsgBox("Succesfully Connected")
  13. End If
  14. End Sub
  15.  
  16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  17. Timer2.Start()
  18. Button2.Enabled = False
  19. End Sub
  20.  
  21. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
  22. ProgressBar2.Increment(1)
  23. If ProgressBar2.Value = 100 Then
  24. End If
  25. Label6.Text = ProgressBar2.Value & (" %")
  26. Label5.Text = "Connecting to Game Server..."
  27. If ProgressBar2.Value = 90% Then
  28. Timer2.Stop()
  29. MsgBox("Updates AVAILABLE Please Press Ok for Download Updates", MsgBoxStyle.Critical, "Update Available")
  30. System.Diagnostics.Process.Start("Here put your code with UPDATE")
  31. End If
  32. End Sub
Advertisement
Add Comment
Please, Sign In to add comment