Совет 1

Наверняка не все знают, что такое свойство по умолчанию. Приведу сразу

пример:

Private Sub Command1_Click()

Label1 = "Ведем расчет погоды на следующее тысячелетие"

...

End Sub

Никакого свойства к Label1 мы не указывали, хотя устано

вили какое-то значение. Если свойство не указано, то VB

использует свойство по умолчанию, обычно это Text или

Caption.

Label1 = "sometext" и Label1.Caption = "sometext" - две

равнозначные строчки кода. Такое написание конечно лучше

использовать в своих программах, т.к. сокращает код, зато

делает его более непонятным для новичков.

В VB таким же образом можно опускать True, например при

проверки какого-нибудь условия, напр.:

If Then GoTo hell Else End

Здесь если верно (равно True) выполняется

переход к метке hell. Такой прием "опускания" True тоже

может сбить с толку новичка, зато сокращает код.

Совет 2

Можно сделать немного удобнее перетаскивание окна. Не

за заголовок, а за любое место формы. Для этого исполь

зуйте API-функции ReleaseCaption и SendMessage, а вернее

следующий код:

Const WM_NCLBUTTONDOWN = &HA1

Const HTCAPTION = 2

Private Declare Function SendMessage Lib "user32" Alias _

"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long

Private Declare Function ReleaseCapture Lib "user32" () As Long

Private Sub Form_MouseDown(Button As Integer, Shift As _

Integer, X As Single, Y As Single)

Call ReleaseCapture

Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End Sub

Здесь впринципе ничего сложного нет, просто используем

обычный API.

Совет 3

Много народу уже спрашивали, как сделать форме режим

fullscreen. А очень просто.

Form1.BorderStyle = 0

Form1.WindowState = 2 'максимизировано

Эти свойства можно установить как в процессе разработки,

так и на этапе выполнения программы. Вместо второй строчки

можно использовать другой вариант:

Form1.Width = Screen.Width

Form1.Height = Screen.Height

Естественно, не забудьте заменить Form1 именем вашей формы.