[ابراهيم ايبو]

السلام عليكم .. اضحى مبارك

تفضل اخي 

كود :

   Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       Dim arr As Array = VPN()
       If arr.GetValue(0) = True Then
           MsgBox(String.Format("name: {0}address: {1}description: {2}", arr.GetValue(1), arr.GetValue(2), arr.GetValue(3)))

       Else
           MsgBox("لايوجد اتصال")
       End If
   End Sub