Vytvoříme si formulář, pomocí kterého později naplníme daty tabulku tblPalety. Postup je následující:
Private Sub btnPalety_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPalety.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmPalety
frmPom.MdiParent = MyFrmHlavni 'Prirazeni rodicovskeho formulare
frmPom.Dock = DockStyle.Fill 'formular se prizpusobi velikosti rodicovskeho formulare
frmPom.Show()
Me.Close() 'Zavreni formulare frmRidici
Cursor.Current = Cursors.Default
End Sub