Požadované akce

chcete provést tehdy, když uživatel zvolí v nabídce Přizpůsobení příkaz s textem
Změnit pozadí formuláře. Napište proto událostní proceduru Click tohoto prvku nabídky:
Public Sub mnuItemPozadíFormuláře_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles mnuItemPozadíFormuláře.Click
If mnuItemPozadíFormuláře.Text = "Pozadí &formuláře" Then
' Nastavení charakteristik dialogového okna Otevřít
OpenFileDialog1.InitialDirectory = "C:\Windows"
OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.CheckPathExists = True
OpenFileDialog1.Filter = "Obrázky (*.gif)|*.gif|Bitové mapy (*.Bmp)|*.bmp"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.MultiSelect = False
OpenFileDialog1.Title = "Vyberte soubor s obrázkem"
' Zobrazení dialogového okna Otevřít
OpenFileDialog1.ShowDialog()
' Vlastnost FileName dialogového okna Otevřít obsahuje úplnou cestu
' k souboru (včetně názvu souboru), který uživatel vybral
If OpenFileDialog1.FileName = "" Then
MessageBox.Show("Název souboru s obrázkem není v pořádku")
Else
Me.BackgroundImage = Image.FromFile(OpenFileDialog1.FileName)
mnuItemPozadíFormuláře.Text = "Odstranit obrázek na pozadí"
End If
Else