VB 如何最大化 但是也要屏蔽最小化和最大化和关闭按钮 如何实现

Question

 VB 如何最大化   但是也要屏蔽最小化和最大化和关闭按钮 如何实现
各位高手 指教   
就像电脑屏幕保护程序一样！   

Answer 1

或者手动设置：
BorderStyle＝3
Windowstate＝2

Answer 2

先设置窗体的BorderStyle=0
Private Sub Form_Load()
Me.WindowState = 2
End Sub

Answer 3

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0                   'X Size of screen
Private Const SM_CYSCREEN = 1                   'Y Size of ScreenPrivate Sub Form_Load()
    Dim strX As String, strY As String
    strX = Trim(str$(GetSystemMetrics(SM_CXSCREEN)))
    strY = Trim(str$(GetSystemMetrics(SM_CYSCREEN)))
    Me.BorderStyle = 0
    Me.Move 0, 0, strX * 15, strY * 15
End Sub