Let's say I have a code, or, please, can be any code. can I put a progress bar in which to show me how long does it have until the code is finished?
Private Sub BttTxtIntDrawo()
TxtOutput1.Clear()
'TxtIntDraw' - numere repetate de la o extragere la alta.
'Aplicăm condițiile și returnăm valorile distincte în Textbox.
Try
'Throw everything into a list of String initially.
Dim AllNumbers1 As New List(Of String)
'Loop through each TextBox, splitting them by commas
For i As Integer = 0 To TxtIntDrawX.Text
AllNumbers1.AddRange(CType(Me.Controls("txtBoxIntDraw"), TextBox).Lines(i).Split(CChar(",")))
'Remove non-integer entries.
Next
AllNumbers1.RemoveAll(Function(x) Integer.TryParse(x, New Integer) = False)
'Join the distinct list to an array, then back to comma separated format into wherever you want it output.
TxtOutput1.Text = String.Join(",", AllNumbers1.Distinct().ToArray())
Catch ex As Exception
End Try
End Sub