Private Sub Form_Load()
Dim SysMenu As Long
SysMenu = GetSystemMenu(Me.hWnd, False)


If SysMenu Then
AppendMenu SysMenu, MF_STRING, 0, "YourItem"
DrawMenuBar Me.hWnd
End If
End Sub