نمایش چندفرم با یک دستور

[hamed-p]

من می‌خواهم که به‌جای این‌که از دستور Case برای اجرای منوها استفاده کنم، از پایگاه‌داده به شیوه‌ی زیر بهره ببرم.
لطفاً کد زیر را اصلاح کنید:


Private Sub GozareshaMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemRpDaryafti.Click, _
ItemRpAmarKol.Click, ItemRpBedehBestan.Click, ItemRpKarnameKol.Click, ItemRpMainList.Click, _
ItemRpNomreList.Click, ItemRpOftadegan.Click, ItemRpShenasCard.Click, ItemRpStuAmarDaftar.Click, _
ItemRpStuSath.Click, ItemRpTel.Click
Dim ChildForm As New System.Windows.Forms.Form
ChildForm.Text = ""
Dim TextItem As String = sender.ToString

Dim i As Integer
For i = 0 To bsInfoReport.Count - 1
If TextItem = bsInfoReport.Item(i)(1).ToString Then
ChildForm = bsInfoReport.Item(i)(2)
Exit For
End If
Next

ChildForm.MdiParent = Me
ChildForm.Show()
End Sub

این‌هم جدولی Binding Sourse (BS به‌ آن پیوند دارد. Itemها هم گزینه‌های نوار منو هستند.

http://i6.tinypic.com/6c7t1mu.jpg

همان‌طور که مشاهده کردید، در حال حاضر تنها مشکل اصلی این است که نمی‌توان یک رشته را به Form نسبت داد.
پیش‌تر از Object و Ctype هم بهره برده ام که پاسخی نگرفته ام.

[hamed-p]

ای بابا
پاسخی پیدا نشد!
پس دست‌کم دراین‌باره چگونه می‌اندیشید:

For each form in ....
if form.name = bsInfoReport.Item(i)(2) then
form.show
Next
به‌جای ... چه چیزی بگذارم که همه‌ی فرم‌های برنامه بررسی شود؟