Code Minimize atau Maximize Form di VB

Anda binggung mencari source code buat minimize taw maxsimize form atau program di vb.. disini tempatnya....
langsung saja nich tak kasih source codenya :

Code Minimize form atau program :
#########################
Private Sub cmd_min_Click()
Me.WindowState = 1
End Sub
#########################

Code Maxsimize form atau program :
######################################
Private Sub cmd_max_Click()
If frmSplash.WindowState <> 2 Then
On Error Resume Next
Me.Move 0, 0, Screen.Width, Screen.Height - 400
End If
End Sub
######################################

Itu source code buat minimize dan maximize yang source code yang lain nyusulll.... :)