[INFLaaTy.cR]

كود :

      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