Private Sub 画像ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 画像ToolStripMenuItem.Click Dim f As New Form4() f.ShowDialog(Me) f.Dispose() End Sub