VERSION 2.00
Begin Form frmMain 
   Caption         =   "Test the FINDSIB!"
   ClientHeight    =   2415
   ClientLeft      =   4650
   ClientTop       =   3120
   ClientWidth     =   3285
   Height          =   2820
   Left            =   4590
   LinkTopic       =   "Form1"
   ScaleHeight     =   2415
   ScaleWidth      =   3285
   Top             =   2775
   Width           =   3405
End
Sub Form_Load ()

    Dim WinSIB As WINSIBT
    Dim hInstance As Integer

    ' get the application's instance handle
    hInstance = GetWindowWord(hWnd, GWW_HINSTANCE)

    ' call FINDSIB.DLL to find the SIB block
    i% = FindSIB(hInstance, WinSIB)

    ' display the results of finding the SIB
    If i% > FS_SIBFOUND Then
        msg$ = "ERROR(" + Str$(i%) + ") Can't find the SIB!"
        MsgBox msg$, MB_OK + MB_ICONSTOP, app.EXEName
    Else
        If i% <> FS_SIBFOUND Then
            msg$ = "Unable to find the SIB, have we been protected?"
            MsgBox msg$, MB_OK + MB_ICONQUESTION, app.EXEName
        Else
            MsgBox WinSIB.sib.SECSTR, MB_OK + MB_ICONINFORMATION, app.EXEName
        End If
    End If

    ' exit program
    End

End Sub

