VERSION 4.00
Begin VB.Form frmMain 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   Caption         =   "Test the FINDSIB!"
   ClientHeight    =   2415
   ClientLeft      =   4650
   ClientTop       =   3120
   ClientWidth     =   3285
   BeginProperty Font 
      name            =   "MS Sans Serif"
      charset         =   1
      weight          =   700
      size            =   8.25
      underline       =   0   'False
      italic          =   0   'False
      strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Height          =   2820
   Left            =   4590
   LinkTopic       =   "Form1"
   ScaleHeight     =   2415
   ScaleWidth      =   3285
   Top             =   2775
   Width           =   3405
End
Attribute VB_Name = "frmMain"
Attribute VB_Creatable = False
Attribute VB_Exposed = False

 Sub Form_Load()

    Dim WinSIB As WINSIBT
    Dim hInstance As Integer
    Dim status As Integer

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

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

    ' display the results of finding the SIB
    If status > FS_SIBFOUND Then
        msg$ = "ERROR(" + Str$(i%) + ") Can't find the SIB!"
        MsgBox msg$, MB_OK + MB_ICONSTOP, App.EXEName
    Else
        If status <> 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

