[mr_mgm]

[COLOR="#000080"]السلام عليكم اخي

اليك طريقه لتنفيذ طلبك
سنعرف مصفوفه من نوع Stringفي التصريحات العامه

كود :

Dim a(5) As String

سنقوم بأسناد قيم للمصفوفه في Form1_Load

كود :

a(1) = "a1"
        a(2) = "a2"
        a(3) = "a3"
        a(4) = "a4"
        a(5) = "a5"

ضع هذا الكود في Button

كود :

For N As Integer = 1 To 5
            MsgBox(a(N)).ToString()
        Next

بالتوفيق[/COLOR]