1. Если вам необходимо поменять Boolean значение на обратное, то можно использовать такой код:

blnVal = Not(blnVal)

Вместо такого:

If blnVal = False Then
blnVal = True
Else
blnVal = False
End If

2. Чтобы заменить несколько символов в строке, можно использовать функцию Mid$:

Dim a As String
a = "Иванов"
Mid$(a, 1, 4) = "Петр" 'переменная a содержит "Петров"

3. Если вы выводите в Label'e номер версии программы, а версия меняется после каждой компиляции, то в таком случае можно использовать свойства объекта App
App.Revision
App.Minor
App.Major

4. Если вам нужно добавить к строке символ перевода строки (Chr(13)+Chr(10)), то можно воспользоваться встроенной константой vbNewLine. Например

MsgBox "Первая строка" & vbNewLine & "Вторая строка"

5. Для того, чтобы открыть файл, находящийся в том же каталоге, что и Exe файл программы, можно использовать свойство App.Path, которое содержит путь к каталогу с программой. Пример:

Picture1.Picture = LoadPicture (App.Path _
& "\background.bmp")

6. Если вам нужно предотвратить запуск второй копии программы, вставьте этот код в обработку Form_Load:

If App.PrevInstance = True Then End

7. Для получения списка всех доступных шрифтов в системе используйте свойство Fonts объекта Screen. Например следующий код выводит список всех шрифтов в список:

For c = 1 To Screen.FontCount
List1.AddItem Screen.Fonts©
Next c

8. Если вам нужно отсортировать этот список по имени, установите свойство ListBox'а Sorted в True.

Добавлено (2006-11-29, 3:37 Pm)
---------------------------------------------
Если вы хотите использовать технологию Drag&Drop для перетаскивания файлов из проводника Windows на форму (или другой объект, поддерживающий эту технологию), то установите свойство OleDropMode в Manual, а в обработку события OLEDragDrop вставьте примерно такой код:

Private Sub Form_OLEDragDrop(Data As DataObject, _
Effect As Long, Button As Integer, Shift As Integer, _
X As Single, Y As Single)

Dim c As Long
c = 1
On Local Error GoTo ErrEnd
If Data.GetFormat(15) = True Then
Do
List1.AddItem Data.Files©
c = c + 1
Loop
End If
ErrEnd:

End Sub