how do i made mdiparent...........

[Supra]

how do i made mdiparent? i don't know where to put it inside block

Public Shared Sub Show(ByVal frm As Form)
Dim obj As Object
Dim bFound As Boolean = False
For Each obj In m_colFormsCollection
Dim frmCurrent As Form
frmCurrent = CType(obj, Form)
If frm Is frmCurrent Then
bFound = True
Exit For
End If
Next
If Not bFound Then
m_colFormsCollection.Add(frm)
End If
frm.Show()
End Sub
regards

[Phil G.]

I'm not quite sure what you are wishing to do. You can set the
IsMdiContainer property of the parent form to true either within the IDE or
during runtime if dynamically creating forms. You would then set any
mdiChild forms parent property to the name of the parent form.

HTH, Phil

"Supra" <su***@domain.invalid> wrote in message
news:b-********************@rogers.com...

how do i made mdiparent? i don't know where to put it inside block

Public Shared Sub Show(ByVal frm As Form)
Dim obj As Object
Dim bFound As Boolean = False
For Each obj In m_colFormsCollection
Dim frmCurrent As Form
frmCurrent = CType(obj, Form)
If frm Is frmCurrent Then
bFound = True
Exit For
End If
Next
If Not bFound Then
m_colFormsCollection.Add(frm)
End If
frm.Show()
End Sub
regards

[Supra]

nope.
where would i put frmcurrent.mdiparent =frmcurrent.mdiparent. something
like that
ne hints :-(
Phil G. wrote:

I'm not quite sure what you are wishing to do. You can set the
IsMdiContainer property of the parent form to true either within the IDE or
during runtime if dynamically creating forms. You would then set any
mdiChild forms parent property to the name of the parent form.

HTH, Phil

"Supra" <su***@domain.invalid> wrote in message
news:b-********************@rogers.com...

how do i made mdiparent? i don't know where to put it inside block

Public Shared Sub Show(ByVal frm As Form)
Dim obj As Object
Dim bFound As Boolean = False
For Each obj In m_colFormsCollection
Dim frmCurrent As Form
frmCurrent = CType(obj, Form)
If frm Is frmCurrent Then
bFound = True
Exit For
End If
Next
If Not bFound Then
m_colFormsCollection.Add(frm)
End If
frm.Show()
End Sub
regards