Merubah Ukuran Form Menjadi Full Screen

DESKRIPSI
Yang saya maksud bukan Maximize, akan tetapi saya akan merubah ukuran form tersebut sebesar layar monitor anda dan saya juga akan memberikan contoh Maximize form tersebut. Biar ada tau apa perbedaannya.
PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	CommandButton	2	Text	Full	Command1
				Maximize	Command2

Masukkan souce ini ke dalam Form Private Sub Command1_Click() Dim ll_Width As Long Dim ll_Height As Long If Me.WindowState = vbMaximized Then WindowState = vbNormal End If 'work out full screen dimensions ll_Width = GetSystemMetrics(SM_CXSCREEN) ll_Height = GetSystemMetrics(SM_CYSCREEN) 'use SetWindowPos to resize window Call SetWindowPos(Me.hwnd, HWND_TOP, 0, 0, ll_Width, ll_Height, SWP_SHOWWINDOW) End Sub Private Sub Command2_Click() WindowState = vbMaximized End Sub

Masukkan souce ini ke dalam Module Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 Public Const HWND_TOP = 0 Public Const SWP_SHOWWINDOW = &H40