[Abu Ehab]

PHP كود :

Sub ListItems()
        With ListBox1.Items
            .Clear()
            .AddRange({1, 44, 3, 55, 6})
        End With
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ListItems()
        Dim Mx = Aggregate i In ListBox1.Items Into Max()
        MsgBox(Mx)

    End Sub