VB.Net 2005 ÅÜ´«¿Ã¹õ¸ÑªR«×»yªk½d¨Ò

narita

¤U­±ªº Form ¸Ì­±¡A¥u¦³¤@­Ó Label ¤Î¨â­Ó Button ¤¸¥ó¦Ó¤w¡G
Public Class Form1

Private Const CCDEVICENAME As Short = 32
Private Const CCFORMNAME As Short = 32
Private Const DM_PELSWIDTH As Integer = &H80000
Private Const DM_PELSHEIGHT As Integer = &H100000
'§ó·s¿Ã¹õ±½ºËÀW²v±`¼Æ
Private Const DM_DISPLAYFREQUENCY As Integer = &H400000

'«Å§i­n¨Ï¥Îªº API ¨ç¦¡
Private Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Integer, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean

'«Å§i­n¨Ï¥Îªº API ¨ç¦¡
Private Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwflags As Integer) As Integer

'©w¸q­n¨Ï¥ÎªºÅܼƵ²ºc
Private Structure DEVMODE
<VBFixedString(CCDEVICENAME), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr, SizeConst:=CCDEV ..