Тестирование полезных кодов и примеров

Sub Set_Date_Time()
Date = DateSerial(2013, 12, 31)
Time = TimeSerial(23, 59, 59)
End Sub

     Private Sub Command1_Click()  
    'генерирует случайное число от 0 до 99  
    Randomize 'перемешиваем счетчик относительно системного времени
    MsgBox Int(100 * Rnd)  
    End Sub

Public Function RaNum(minRand As Long, maxRand As Long)  as Long
'генерирует случайное число  до  2147483647
  Randomize        'перемешиваем счетчик относительно системного времени
   RaNum = Int((maxRand - minRand + 1) * Rnd + minRand)
End Function
 
 MsgBox RaNum(0, 99)

Randomize timer
MsgBox Int(95 * Rnd)+5

Option Explicit
'
'© FelixMacintosh 2014
'Регистрация DLL // OCX
'
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long
 
Sub main()
    '
    'Пример регистрации моей dll-ки
    '
    Dim cErr As Object
    ChDir App.Path 'Зайти в папку, где сейчас программа
    Register_OCX_DLL 0, "dllErr.dll", True 'Зарегить
    '
    'Внутренности той dll-ки
    '
    'Public Function Add(Number&, Description$) As Long
    '    'Создаёт номер и дискриптор ошибки
    '    'Возвращает успешно добавленный номер
    'Public Sub Raise(Expression As Boolean, ByVal Index$, Optional Source$)
    '    'Вызов ошибки по указанному индексу
    '    'Арг: выражение // номер или ключ // источник
    '
    'Протестировать её работу
    Set cErr = CreateObject("dllErr.cErr") 'Создать класс
    '
    cErr.Add -2 ^ 16, "Ошибка из за того что ... 2 + 2 = 4"
    cErr.Raise 2 + 2 = 4, -2 ^ 16, "main"
    
    Register_OCX_DLL 0, "dllERR.dll", False 'Отенить регистрацию
End Sub
'
'
'
Public Function Register_OCX_DLL(Wnd As Long, Path As String, Reg As Boolean)
    On Error Resume Next
    Dim lb As Long, pa As Long
    lb = LoadLibrary(Path)
 
    If Reg = True Then
        pa = GetProcAddress(lb, "DllRegisterServer")
    Else
        pa = GetProcAddress(lb, "DllUnregisterServer")
    End If
 
    If pa > 0 Then
        Call CallWindowProc(pa, Wnd, ByVal 0&, ByVal 0&, ByVal 0&)
        Call FreeLibrary(lb)
    End If
End Function