[MSDOS]

تفضل

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If PCs IsNot Nothing Then
        ReDim Preserve PCs(PCs.Length)
    Else
        ReDim PCs(0)
    End If
    PCs(PCs.Length - 1) = TextBox1.Text

End Sub