Присвойте свойству формы Moveable значение False, и вашу форму нельзя будет перетаскивать в другое место

Эту задачу очень просто решить с помощью такого кода:

Private Sub Form_KeyPress(KeyAscii As Integer)  
  If KeyAscii = 27 Then  
   Unload Me  
  End If  
End Sub

Помните, что кавычки можно заменить конструкцией Chr(34). В некоторых случаях это удобней, чем использование кавычек в явном виде. Код, перегруженный кавычками, выглядит неуклюже

Dim str As String
str = "Л.Толстой - автор произведения " & """" & "Война и мир!" & """"
MsgBox str

str = "Л.Толстой - автор произведения " & Chr(34) & "Война и мир!" & Chr(34)

' Код для Form_Load
Dim wid As Long
Dim hgt As Long

' Получим размеры экрана, включая панель задач
wid = GetSystemMetrics(SM_CXSCREEN)
hgt = GetSystemMetrics(SM_CYSCREEN)

' Подгоняем форму под этот размер
Move 0, 0, _
        ScaleX(wid, vbPixels, vbTwips), _
        ScaleY(hgt, vbPixels, vbTwips)

Private Sub MDIForm_Load()
  Dim lWnd As Long
  lWnd = GetWindowLong(Me.hWnd, GWL_STYLE)
  lWnd = lWnd And Not (WS_MINIMIZEBOX)
  lWnd = lWnd And Not (WS_MAXIMIZEBOX)
  lWnd = SetWindowLong(Me.hWnd, GWL_STYLE, lWnd)
End Sub

Option Explicit
' описание API-функций и констант
Public Declare Function SetWindowLong Lib _
     "user32" Alias "SetWindowLongA" (ByVal _
     hWnd As Long, ByVal nIndex As Long, ByVal _
     dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib _
     "user32" Alias "GetWindowLongA" (ByVal _
    hWnd As Long, ByVal nIndex As Long) As Long
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const GWL_STYLE = (-16)

Private Sub Combo1_KeyPress(KeyAscii As Integer)
' Если пользователь попытается нажать одиннадцатую клавишу и
' если эта клавиша не Backspace, то отменить данное событие
    Const MAXLENGTH = 10
    If Len(Combo1.Text) >= MAXLENGTH And KeyAscii <> vbKeyBack Then
      KeyAscii = 0
    End If
End Sub

Если вам нужно узнать, является ли число четным или нечетным, то можно использовать оператор MOD. Если число делится без остатка, то оно четное. Но этот способ не совсем эффективен, так как за кулисами бейсик применяет деление числа, и многочисленные вызовы этого оператора сильно загружают процессор. Лучше использовать битовую операцию AND. В этом случае Число AND 1 возвращает 1 для нечетных чисел и 0 для четных
Пример

Dim blnIsOdd As Boolean
blnIsOdd = CLng(Text1.Text) And 1
If blnIsOdd Then
MsgBox "Нечетное число"
Else
MsgBox "Четное число"
End If

Command1_Click

Form1.Command1.Value = True

Если ваш проект содержит, например, множество кнопок и вам нужно, например, скрыть все кнопки, то можно писать так Command1.Visible= False Command2.Visible= False и т.д. Но есть способ лучше.

Dim myControl
For Each myControl In Me.Controls
   If TypeOf myControl Is ComandButton Then
    myControl.Visible = False
  End If
Next

Довольно часто приходится использовать переключатели-флаги, которые имеют значения "ноль/не ноль". Новички используют такую конструкцию:

If myCode Then myCode = False Else myCode = True

Но лучше использовать:

myCode = Not myCode    ' состояние флага 0 или -1

Номер версии программы состоит из трех элементов: Major, Minor и Revision. Функция Auto Increment, если она выделена, будет автоматически увеличивать номер Revision на единицу при каждом запуске команды Make Project для конкретного проекта.

Обычно информация о версиях программы используется в форме About. Для этого просто добавьте метку с именем lblVersion и введите следующий код для вашей формы:

lblVersion.Caption = "Версия: " & App.Major & _
    "." & App.Minor & "." & App.Revision

Если для вашей программы номер Major равен 2, номер Minor — 1 и номер Revision — 12, то метка выведет на экран: "Версия: 2.1.12"