Option Explicit

Private 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

Private Sub Form_Load()
 
  Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, &H2 Or &H1)
 
 ' todas estas propiedades en diseño
 If Me.BorderStyle <> 0 Then MsgBox "FORM SIN BORDES EN DISEÑO": End
 Command1.Left = 0
 Command1.Top = 0
 Me.Height = Command1.Height
 Me.Width = Command1.Width

End Sub


Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
 MsgBox "CODIGO"
End If
If Button = 2 Then
 End
End If

End Sub