Sub view_fullscreen()
	Application.DisplayFullScreen = True
	'フルスクリーン表示させます
End Sub