Option Explicit

Private colWords As New Collection

Sub Insert(V As Variant)
    Dim i As Variant
    Dim j As Variant
    Dim k As Variant
    `Determine whether this is first item to add
    If colWords.Count = 0 Then
        colWords.Add V
        Exit Sub
    End If
    `Get the range of the collection
    i = 1
    j = colWords.Count
    `Determine whether this should be inserted before first item
    If V <= colWords.Item(i) Then
        colWords.Add V, before:=i
        Exit Sub
    End If
    `Determine whether this should be inserted after last item
    If V >= colWords.Item(j) Then
        colWords.Add V, after:=j
        Exit Sub
    End If
    `Conduct binary search for insertion point
    Do Until j - i <= 1
        k = (i + j) \ 2
        If colWords.Item(k) < V Then
            i = k
        Else
            j = k
        End If
    Loop
    `Insert item where it belongs
    colWords.Add V, before:=j
End Sub
Private Sub cmdBuildList_Click()
    Dim i As Integer
    Insert "One"
    Insert "Two"
    Insert "Three"
    Insert "Four"
    Insert "Five"
    Insert "Six"
    Insert "Seven"
    Insert "Eight"
    Insert "Nine"
    Insert "Ten"
    For i = 1 To colWords.Count
        Print colWords.Item(i)
    Next i
End Sub

`LAUNCH.BAS
Option Explicit

#If Win16 Then
Declare Function GetVersion Lib "Kernel" () _
    As Long
#Else
Declare Function GetVersion Lib "Kernel32" () _
    As Long
#End If

`Demonstrates how to get Windows version information `for 16-bit and 32-bit systems Sub Main()
    Dim lWinInfo As Long
    Dim strWinVer As String
    Dim strDosVersion As String
    `Retrieve Windows version information
    lWinInfo = GetVersion()
    `Parse Windows version number from returned
    `Long integer value
    strWinVer = LoByte(LoWord(lWinInfo)) & "." & _
        HiByte(LoWord(lWinInfo))
    `If version number is earlier than 3.5 (Win NT 3.5).
    If Val(strWinVer) < 3.5 Then
        Shell "Setup1.EXE"      `Run 16-bit setup;
    Else                        `otherwise,
        Shell "Setup132.EXE"    `run 32-bit setup
    End If

End Sub
Function LoWord(lArg)
    LoWord = lArg And (lArg Xor &HFFFF0000)
End Function

Function HiWord(lArg)
    If lArg > &H7FFFFFFF Then
        HiWord = (lArg And &HFFFF0000) \ &H10000
    Else
        HiWord = ((lArg And &HFFFF0000) \ &H10000) Xor &HFFFF0000
    End If
End Function

Function HiByte(iArg)
    HiByte = (iArg And &HFF00) \ &H100
End Function

Function LoByte(iArg)
    LoByte = iArg Xor (iArg And &HFF00)
End Function

Option Explicit

Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_LOGOFF = 0
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" _
    (ByVal uFlags As Long, _
    ByVal dwReserved As Long) _
    As Long
  
Private Sub cmdRestart_Click()
    `Restart Windows (works on Windows 95/NT)
    ExitWindowsEx EWX_LOGOFF, 0
End Sub

Private Sub cmdTest_Click()
    On Error GoTo ErrorTrap
    Print 17 / 0  `(math error)
    Exit Sub

ErrorTrap:
    Print "Illegal to divide by zero."
    Resume Next
End Sub

x = mciExecute("Play c:\windows\tada.wav")
If x = 0 Then MsgBox "There was a problem."

Option Explicit

Private Sub cmdTest_Click()
    Dim vntX As Variant
    Dim vntY As Variant
    For vntX = -3 To 3
        vntY = Reciprocal(vntX)
        Print "Reciprocal of "; vntX; " is "; vntY; ""
        If IsError(vntY) Then Print Err.Description
    Next vntX
End Sub

Function Reciprocal(vntX As Variant)
    Dim vntY As Variant
    On Error Resume Next
    vntY = 1 / vntX
    If Err.Number = 0 Then
        Reciprocal = vntY
    Else
        Reciprocal = CVErr(Err.Number)
    End If
End Function