form1.frm

your form = your monitor resoluction

VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H00404040&
   Caption         =   "Form1"
   ClientHeight    =   8370
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   10185
   LinkTopic       =   "Form1"
   ScaleHeight     =   8370
   ScaleWidth      =   10185
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command2 
      Caption         =   "Descobrir Hwnd"
      Height          =   525
      Left            =   6300
      TabIndex        =   3
      Top             =   4680
      Width           =   1245
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   6780
      TabIndex        =   1
      Top             =   3960
      Width           =   1605
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Deixar Full"
      Height          =   525
      Left            =   7800
      TabIndex        =   0
      Top             =   4680
      Width           =   1245
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   $"Form1.frx":0000
      ForeColor       =   &H00FFFFFF&
      Height          =   1185
      Left            =   4020
      TabIndex        =   2
      Top             =   2280
      Width           =   7905
   End
   Begin VB.Menu teste 
      Caption         =   "Teste"
      Begin VB.Menu teste1 
         Caption         =   "Teste1"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const WS_CAPTION = &HC00000
Private Const GWL_STYLE = (-16)
Dim Var As Integer

Private Sub Command1_Click()
            Var = Var And Not (WS_CAPTION)
                 Me.Visible = False
            SetWindowLong Text1.Text, GWL_STYLE, Var
            Me.Visible = True
End Sub

Private Sub Command2_Click()
Form2.Show 1
End Sub