مشكلة ارسال متغيرات

السلام عليكــم ورحمـة الله وبركاتــه ،،

الخطوات:

1- مشروع جديد

2- إضافة 4 بانل على الفورم بالأسماء Panel1 , Panel2 , Panel3 , Panel4

3- إضافة LinkLabel باسم LinkLabel1

الكود:

Public Class Form1

	Dim panels(3) As Panel
	Dim index As Integer

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		panels(0) = Me.Panel1
		panels(1) = Me.Panel2
		panels(2) = Me.Panel3
		panels(3) = Me.Panel4

		ShowPanel(0)
	End Sub

	Private Sub ShowPanel(ByVal panelIndex As Integer)
		For i As Integer = 0 To panels.Length - 1
			panels(i).Visible = (i = panelIndex)
		Next
	End Sub

	Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
		index += 1
		If index > panels.Length - 1 Then
			index = 0
		End If
		ShowPanel(index)
	End Sub
End Class