[الرائد]

(12-08-19, 04:55 PM)ابراهيم ايبو كتب :

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

تفضل اخي 

كود :

   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

فيجوال بيسك صراحة تختلف عن لغات البرمجة الاخرى 
فكما لاحظت انها لاتقبل الدوال الغير متممة في سطر جديد 
لكن مثلا في بايثون لا نعاني من هاته المشاكل فهو امر عادي