الرجاء المساعدة باقرب وقت جزاكم الله خير في استخدام Module و إستقباله للقيم وإرسالها في Vb.net

السلام عليكم

عندي برنامج لمحل تجاري للملابس من تصميمننا

المستخدم لما يدخل يختار المنتج إلي يبغاه والعدد وراح تتطلع القيمة طبعا في نفس الform

المشكلة عندنا بعد كا ينتهي المستخدم ويختار الي يبغاه

نبغى نطلع المجموع الكلي لمشترياته

قلت أعمل module

وأحط فيه function

بحيث هذي الfunction عملها جمع عناصر ال array الي هي القيمة النهائية لجميع المشتروات

عناصر هذه الarray هي القيمة الي ترسلها (بحيث لما يضغط المستخدم على زر تأكيد شراء المنتج يتم ارسال قيمة شرائه الي هذه الaaray )

اخترت الmodule على حسب معرفتي لأن كل الforms تشوفها

لكن ما عرفت كيف أبرمجها بطرية صحيحة يعني بعد ما أنشيء ال module كيف استدعيه وارسال واستقبل وخصوصا array

هذا محاولاتي كود ال module

Module Module1
	Public Function total(ByVal price As Array) As Integer
		Dim sum As Array
		sum = sum + price
		Return sum
	End Function

End Module

وهذا كود الي يشتري المستخدم منه المنتج لكن ما عرفت كيف أحط الناتج كمتغير عشان يرسله للmodule

Public Class Form12

	Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
		Form10.Show() '  إظهار شاشة الموديلات 
		Form10.Location = New Point(0, 0) ' تحديد نقطة ظهور الشاشة
		Me.Hide()
	End Sub

	Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
		If RadioButton1.Checked = True Then PictureBox1.Show() ' ظهور الصورة على حسب اللون
		PictureBox2.Hide()
	End Sub

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Label10.Text = 50 * Val(TextBox1.Text) ' و حساب قيمة المجموع المبدئي وإظهاره في نفس الشاشة

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		TextBox1.Text = ""  ' مسح الخانات
		Label10.Text = ""
	End Sub

	Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
		Form3.Show() '  إظهار شاشة تأكيد الشراء
		Form3.Location = New Point(0, 0)
		Me.Hide()

	End Sub

	Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
		Form1.Show() ' عودة الشاشة الرئيسية
		Form1.Location = New Point(0, 0)
		Me.Hide()
	End Sub

	Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

		If RadioButton2.Checked = True Then PictureBox2.Show() ' ظهور الصورة عى حسب اللون
		PictureBox1.Hide()

	End Sub


	Private Sub Form12_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		PictureBox1.Show()  ' مجرد تعبئة القائمة بالمقاسات
		PictureBox2.Hide()
		RadioButton1.Show()
		RadioButton2.Show()
		With Me.ComboBox1.Items
			.Add("S")
			.Add("M")
			.Add("L")

		End With
	End Sub

End Class

الي يعرف حل لمشكلي ياريت يرد باسرع وقت لأني بحاجتها ضروري