Public Class cTitleLess
    Inherits Form
 
    Declare Function GetSystemMenu Lib "user32.dll" _
    (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
 
    Private Declare Function RemoveMenu Lib "user32.dll" (ByVal hMenu As _
      Integer, _
       ByVal uPosition As Integer, ByVal uFlags As Integer) As Integer
 
    Public Const SC_MAXIMIZE As Integer = &HF030
    Public Const MF_BYCOMMAND As Integer = &H0&
 
    Protected Overrides ReadOnly Property CreateParams() As CreateParams
        Get
            Const WS_SYSMENU As Integer = &H80000
            Dim oReturn As CreateParams = MyBase.CreateParams
            oReturn.Style = oReturn.Style Or WS_SYSMENU
            Return oReturn
        End Get
    End Property
 
    Private Sub cTitleLess_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.ShowInTaskbar = True
 
        Dim sm As Integer = GetSystemMenu(CInt(Me.Handle), 0)
        RemoveMenu(sm, SC_MAXIMIZE, MF_BYCOMMAND)
    End Sub
 
    Private Sub InitializeComponent()
        Me.SuspendLayout()
        '
        'cTitleLess
        '
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Name = "cTitleLess"
        Me.ResumeLayout(False)
 
    End Sub
End Class