[Aly El-Haddad]

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myNum As Integer = TextBox1.Text
        ListBox1.Items.Add(myNum)
        Dim count As Integer = 0
        For I As Integer = 0 To ListBox1.Items.Count - 1
            If ListBox1.Items(I) = myNum Then
                count += 1
            End If
        Next
        ListBox2.Items.Add(count)
    End Sub
End Class