Podívejme se znovu na zadání, jak by asi měl vypadat formulář Přehled palet .
Vytvoříme nový prázdný formulář, který nazveme frmPrehPalet.
Otevřeme formulář frmRidici. Poklepeme myší na tlačítko btnPrehledPalet (FORMULÁŘE APLIKAČNÍ) .
Do vytvořené prázdné procedury btnPrehledPalet_Click vložíme následující kód , který vložíme do regiónu #Region "FORMULARE APLIKACNI":
Private Sub btnPrehledPalet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrehledPalet.Click
Cursor.Current = Cursors.WaitCursor
Dim frmPom As New frmPrehPalet
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