Dim frm(0) As frmDB
    Dim iChild As Integer = 0
 
    Private Sub ShowDB(ByVal FileName As String)
        frm(iChild) = New frmDB()
 
        With frm(iChild)
            .MdiParent = Me
            .Text = FileName
            .Size = New Size(500, 400)
 
            readDB(FileName, .ListView1)
            .Show()
        End With
 
        ReDim Preserve frm(UBound(frm) + 1)
        iChild += 1
    End Sub