Public Class frmTestIt
 
    Dim _tbl As DataTable
    Public Property tbl As DataTable
        Set(value As DataTable)
            _tbl = value
            dgv.DataSource = _tbl
        End Set
        Get
            Return _tbl
        End Get
    End Property
 
 
    Dim dgv As New DataGridView With {.Parent = Me, .Top = 50}
    Dim subform, subform2 As frmTestIt
 
    Dim WithEvents btnSubForms As New Button With
        {.Parent = Me, .Text = "Subform"}
 
 
    Private Sub btnSubForms_Click(sender As Object, e As EventArgs) Handles _
      btnSubForms.Click
        subform = New frmTestIt
        With subform
            .tbl = New DataTable
            .tbl.Columns.Add("S1")
            .Location = Me.Location
            .Location.Offset(New Point(20, 20))
            .Show()
        End With
 
        subform2 = New frmTestIt
        With subform2
            .tbl = New DataTable
            .tbl.Columns.Add("S2")
            .Location = Me.Location
            .Location.Offset(New Point(40, 40))
            .Show()
        End With
 
    End Sub
 
    Private Sub frmTestIt_Load(sender As Object, e As EventArgs) Handles Me.Load
 
        Me.StartPosition = FormStartPosition.Manual
 
    End Sub
End Class

   Dim newList As New frm_singleList
 With newList
                .str_dataTableLocation = SaveFileDialog1.FileName
                .bln_makeNewList = True
            End With
            newList.Show()

   Dim addTime As New frm_addTime()
        addTime.ShowDialog(Me)

frm_singleList.dt_times.Rows.Add, etc...