[abulayth]

حياك الله اخي

جرب التالي

PHP كود :

Private Sub Command1_Click()

  Dim Stuff() As String
  Dim Stu() As String
    Dim i As Long

     Stuff = Split(GetText(Text2.Text, Text6.Text, Text1.Text), vbNullChar)
      Stu = Split(GetText(Text2.Text, Text8.Text, Text7.Text), vbNullChar)
        For i = 0 To UBound(Stuff)
            If Val(Stuff(i)) > 15.618 Then
            With list1.ListItems.Add
                .Text = Stu(i)
                .SubItems(1) = Stuff(i)
    
            End With
         End If
        Next i
End Sub 


يعطيك العافية