! На форме помещаем следущие элементы:
PictureBox.Name="imgTopLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для верхнего левого угла"
PictureBox.Name="imgTopRt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для верхнего правого угла"
PictureBox.Name="imgDnLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для нижнего левого угла"
MousePointer = 6 ' Size NE SW
PictureBox.Name="imgDnRt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "Растровое изображение для нижнего правого угла"
MousePointer = 8 'Size NW SE
! Нижние левый и правый углы служат дополнительно для изменения положения и размера окна
PictureBox.Name="imgFrameLt"
AutoSize = -1 ' True
BorderStyle = 0 ' None
Picture = "(None)" ' Оставляем пустой, рамка будет рисоваться программно
MousePointer = 9 ' Size W E
PictureBox.Name="imgFrameRt"
AutoRedraw = -1 ' True
BorderStyle = 0 'None
Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
MousePointer = 9 'Size W E
PictureBox.Name="imgFrameDn"
AutoRedraw = -1 'True
BorderStyle = 0 'None
Picture = "(None)" 'Оставляем пустой, рамка будет рисоваться программно
MousePointer = 7 'Size N S
! Рамки тоже несут двойную нагрузку, ими так же можно изменять положение и размер окон
PictureBox.Name="imgTopHead"
AutoRedraw = -1 'True
BorderStyle = 0 'None
! На этом элементе располагаем метку для заголовка окна
Label.Name="lblFormCapt"
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "MyForm" 'Здесь будет отображаться заголовок приложения
ForeColor = &H00FF0000& 'Цвет для заголовка
! Важно: В элементе lblFormCapt
хранится заголовок отображаемый на форме
! В свойствах формы Form.Caption хранится заголовок отображаемый на панели задач при
Form.ShowInTaskbar="True"
! Обычно он должен быть одинаковым, однако в нашем случае мы можем задать его разным:
! Например, на панели задач отобразить в короткой форме типа "MyApication",
! а на форме более подробно: "MyApication:Открытый файл"
! Кнопки управления окна
PictureBox.Name="cmdMin"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки минимизировать"
PictureBox.Name="cmdMax"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки максимизировать"
PictureBox.Name="cmdRest"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки восстановить"
Visible = 0 'False
PictureBox.Name="cmdClose"
AutoSize = -1 'True
BorderStyle = 0 'None
Picture = "Растровое изображение кнопки закрыть"
! Так как мы задали BorderStyle=0, стандартное меню нам больше не доступно, будем создавать его сами
PictureBox.Name="imgMenu"
BorderStyle = 0 'None
! Область для текстового меню
PictureBox.Name="imgToolBar"
BorderStyle = 0 'None
! Область для пиктографического меню
PictureBox.Name="imgButt"
BorderStyle = 0 'None
! Область для отображения функциональных кнопок
PictureBox.Name="imgStatusBar"
BorderStyle = 0 'None
! Область для строки состояния
! В зависимости поставленной задачи или желания программиста могут присутствовать или нет
PictureBox.Name="ClientArea"
BackColor = &H00E1DFDF&
! Клиентская область где будут располагаться все остальные элементы вашего приложения
! Примечание: Расположение элементов на форме при проектировании не имеет роли, так как их положение
будут определятся программно.