18-11-20, 04:01 PM
كود :
Try
If (ProgressBar1.Value <> &H2710) Then
Dim box2 As ListBox = Me.ListBox1
box2.SelectedIndex += 1
If ListBox1.SelectedItem.ToString.Contains("تضع اداة الفلترة") Then
ListBox2.Items.add(ListBox1.SelectedItem.ToString)
End If
End If
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
ProjectData.ClearProjectError()
End Try