Никаких свалок кода и крутых подборок исходников на VB здесь не ищите. Но и не будет здесь и жеваных-пережеваных 'Как поместить иконку в трей' или 'Как предотвратить запуск двух экземпляров одной VB программы'.
  Наверное, я все-таки ограничусь лишь тем, что когда-то очень помогло или просто понравилось. Ну и, конечно же, будет что-нибудь очень странное, редкое или просто плохо задокументированное. Может это и Вам будет интересно.
  Все размещенное на этой странице будет, естественно, предварительно проверено на работоспособность.

1. Скромность украшает: левая установка VB6
2. Считываем дату компиляции программы
3. Позиционируем Audio CD
4. Небольшой трюк в SaveSetting и GetSetting
5. Используем свойства контролов по полной
6. VB и ASM не совместимы? Да брехня!
7. Очень секретная:-) функция InStrB
8. Регулярные выражения в VB

1045 AddRegData """CLASSES"",""Licenses\6000720D-F342-11D1-AF65-00A0C90DCA10"","""",""kefeflhlhlgenelerfleheietfmflelljeqf"",""""" 1046 AddRegData """CLASSES"",""Licenses\74872840-703A-11d1-A3AF-00A0C90F26FA"","""",""mninuglgknogtgjnthmnggjgsmrmgniglish"",""""" 1047 AddRegData """CLASSES"",""Licenses\74872841-703A-11d1-A3AF-00A0C90F26FA"","""",""klglsejeilmereglrfkleeheqkpkelgejgqf"","""""

REGEDIT4 [HKEY_CLASSES_ROOT\Licenses\6000720D-F342-11D1-AF65-00A0C90DCA10] @="kefeflhlhlgenelerfleheietfmflelljeqf"

Используй то, что под рукой...

  Каждый VB контрол имеет большое число зачастую неиспользуемых свойств. У меня всегда был соблазн их применения в качестве переменных, констант и даже объектов внутри программ. Простой пример: при необходимости хранить графику, которая будет в процессе динамически выводиться на форму (меняющуюся иконку окна программы, указатель мыши и др.) имейте в виду, что хранилище для них обычно уже в избытке есть на форме. Простая кнопка (CommandButton) имеет 3 свойства типа Picture, в которые можно загрузить любую графику программно или на этапе конструирования. Если Вы не используете кнопку со стилем 1-Graphical, эти картинки нигде не отобразятся. Это избавит Вас от добавления на форму объектов типа Image, в которые обычно загоняют такую графику когда нежелательно использовать ImageList. Дополнительный плюс, что графику можно привязать к конкретному управляющему элементу, если это нужно по коду, например для отображения особого указателя курсора мыши при перетаскивании над этим элементом. Или например такой код:

Private Sub cmdStates_Click(Index As Integer)
Set Me.Picture = cmdStates(Index).Picture
Set Me.Icon = cmdStates(Index).DownPicture
Set picPresident.Picture = cmdStates(Index).DisabledPicture
Me.Caption = "Государство " & cmdStates(Index).Caption & _
  IIf(cmdStates(Index).UseMaskColor, _
  " (член НАТО)", " (не входит в НАТО)")
End Sub

  Здесь в каждую кнопку массива cmdStates для свойства Picture загружена карта государства, а для DownPicture - иконка с изображением флага, а для DisabledPicture - фотография руководителя соответствующего государства, в UseMaskColor - True если государство имеет членство в НАТО. Число кнопок, естественно, может быть почти любым и при этом никаких лишних элементов управления для хранения картинок и т.д.
  Другой случай: использование, например, свойства WhatsThisHelpID CheckBox'a для хранения константы, допустим значения по умолчанию для какой-то настройки. Это упрощает, по моему, обработку большого массива таких элементов. Что бы не быть голословным вот кусочек кода, который имеет совсем небольшой размер:

Dim i As Long
Private Sub cmdDefault_Click()
For i = Settings.LBound To Settings.UBound
  Settings(i).Value = Settings(i).WhatsThisHelpID
Next
End Sub

Private Sub Form_Load()
For i = Settings.LBound To Settings.UBound
  Settings(i).Value = GetSetting("Myprog", "Settings", _
  Settings(i).Tag, Settings(i).WhatsThisHelpID)
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
For i = Settings.LBound To Settings.UBound
  Call SaveSetting("Myprog", "Settings", _
  Settings(i).Tag, Settings(i).Value)
Next
End Sub

  Для работы этого кода при создании массива Settings в таг каждого чекбокса записываем соответствующее имя параметра в реестре, а в свойство WhatsThisHelpID (Вы его когда-нибудь используете? ежели да, то замените его, например, на MaskColor :)) запишите значение по умолчанию для данной настройки. Кнопка CmdDefault предназначена для сброса всех настроек в значение по умолчанию.

Ускоряем VB программу с помощью ASM-а

   Да, не очень быстры программы на Бейсике и тут даже оптимизация кода и активное использование Win32API не очень порой помогают. Жаль, что нельзя, как например это делается в Дельфи, внедрять ассемблер непосредственно в код вашей программы. Но, как выясняется, есть способ использовать ASM-код с VB уже в готовом откомпилированном виде (в машинных кодах). Суть этой методы такова: откомпилированный ASM-код Вы или сохраняется в ресурсе программы, или записывается как константу в виде строки шестнадцатеричных символов. После запуска программы этот код загружается в память (во втором случае нужно еще и пребразовать строку с кодом в байтовый массив). Теперь с помощью API-функции CallWindowProc этот код приводится в действие. Мудрено? Но эффект просто поразительный! Некоторые вещи можно ускорить таким методом в сотни раз.
   А чтобы Вы могли это прочувствовать, предлагаю Вам изучить и опробовать три демо-программы в исходниках, которые мне повезло найти в сети.
  Первая программа самая простая из троицы. Это удобный 64-разрядный Hex/Dec/Bin конвертер. Именно в этой программе показан метод загрузки машинного кода из пользовательского ресурса. Вторая демонстрирует, как внедрение ASM (длина машинного кода всего 94 байта(!)) ускоряет операцию шифрования файлов функцией XOR в сотни раз по сранению с чистым VB. А третья вообще вызывает одни восторги. Огромное количество графических эффектов и преобразований она производит так быстро, как, мне кажется, не всякая настоящая рисовалка может это делать. Кроме того в программе есть несложные (уже не на ассемблере, а на WinAPI) реализации диалоговых окон отрытия и сохранения файлов, а также диалога выбора цвета. Есть также функция отмены и вариант работы с палитрами. В общем смотрите и наслаждайтесь :)

Функция InStrB не только для поиска текста

  Обычную InStr Вы, конечно же, использовали не раз. Да это и понятно: функция просто необходимая. Но в VB есть еще и ее модификация: InStrB. Описание: "InStrB используется с бинарными данными, помещенными внутрь строковой переменной. Вместо того, чтобы возвратить позицию первого символа вхождения одной строки в другую, InStrB возвращает позицию первого байта". Попытка найти в документации по VB и даже в MSDN хоть какие-либо примеры использования этой функции, скорее всего приведут Вас к мысли, что функция добавлена просто так, "для галочки". Так и я думал долгое время. Но когда докатился:) до необходимости оптимизации работы своих программ, функция неожиданно мне пригодилась. Приведу наглядный, как мне кажется, пример: поиск в нетекстовых файлах некоторой определенной последовательности байтов (например, некоторой сигнатуры). Обычный способ проделать это - прочесть содержимое файла в строку и, предварительно преобразовав разыскиваемый блок данных тоже в строку, использовать обычную функцию InStr. И это вполне работает. Недостатки: необходимость поместить содержимое файла в строке приводит к удвоению используемой для этого оперативной памяти (Вы помните, что VB хранит строки в формате Unicode, используя при этом 16, а не 8 бит на один символ?). Кроме этого, когда при чтении бинарных данных в строку VB производит их конвертирование, это, естественно, занимает процессорное время и, возможно, опять же память. Напрашивается простое решение: использовать не строку, а байтовый массив. Да нет проблем! Но как же тогда фукция InStrB, она ведь работает со строками? Преобразовывать массив в строку? Абсурд какой-то! Да нет, не понадобится это. Cообщаю об обнаруженной мной недокументированной (или просто ужасно плохо описанной) способности этой функции работать непосредственно с байтовыми массивами.
Касаемо нашего случая (поиск в файле) это можно изобразить так:
(ниже пример от фонаря, но с реальными величинами)

Private Sub cmdTestForEXIF_Click()

Dim Signature() As Byte
Dim Buffer() As Byte, Pos&
'Будем искать заголовок блока данных EXIF, применяемого
'в JPG-формате для цифровой фотографии: 0x45786966
'Для этого заполняем массив побайтово
ReDim Signature(3)
Signature(0) = &H45
Signature(1) = &H78
Signature(2) = &H69
Signature(3) = &H66
Open "c:\some_file.jpg" For Binary As #100
'Считываемый весь файл (возможно, в Вашем конкретном
'случае нужна будет только некоторая его часть)
ReDim Buffer(LOF(100) - 1)
Get #100, , Buffer
Close #100
Pos = InStrB(1, Buffer(), Signature(), vbBinaryCompare)
If Pos > 0 Then
  MsgBox "Блок EXIF обнаружен в позиции 0x" & Hex(Pos - 1)
Else
  MsgBox "JPG файл не сождержит EXIF блока!"
End If

End Sub

  Могу вам сказать, что во время тестов (поиск внутри бинарных файлов) скорость подобного кода в сравнении с кодом, использующим чисто строковый набор функций, увеличивалась до 2-х раз, что, согласитесь, немало для программы, активно такой поиск использующей.

   Перед проверкой примеров в VB IDE не забудьте в свойствах проекта сослаться на объект RegExp. Для этого в Project >> References подключите ссылку на "Microsoft VBScript Regular Expressions 5.5" (номер версии может быть и ниже если установлена более старая версия WSH). Вроде бы все просто, но вот у VB5 почему-то с этим есть какие-то проблемы, поэтому там будет проще отрыть в Блокноте файл проекта (.VBP) и в его начале добавить следующую строку:

Reference=*\G{3F4DACA7-160D-11D2-A8E9-00104B365C9F}#5.5#0#vbscript.dll\3#Microsoft VBScript Regular Expressions 5.5