Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Private Sub Panel1_Click(sender As Object, e As EventArgs) Handles Panel1.Click MessageBox.Show("Short Strings will be created, click to continue, this process. its 1 sql event which takes about 4 minutes, so wait for the next message as progress bar wont update with this procedure call. after clicking ok") Me.Timer1.Enabled = True Me.Timer1.Interval = 1 * 1000 Timer1.Start() Call CreateAllStrs() Timer1.Stop() MessageBox.Show("Short Strings Created") Me.Timer1.Enabled = False End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick If ProgressBar2.Value <= 10000 Then ProgressBar2.Value = ProgressBar2.Value + 1 ProgressBar2.PerformStep() Else ProgressBar2.Value = 1 End If End Sub