Vytvoříme si formulář, pomocí kterého později naplníme daty tabulku tblMaterial. Postup je následující:
#Region "FORMULÁŘE ZÁKLADNÍ"
Private Sub btnMaterial_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaterial.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmMaterial
frmPom.MdiParent = MyFrmHlavni 'Prirazeni rodicovskeho formulare
frmPom.Dock = DockStyle.Fill 'formular se prizpusobi velikosti rodicovskeho formulare
frmPom.Show()
Me.Close()
Cursor.Current = Cursors.Default
End Sub
#End Region