Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Form_Load()
Dim FEH As Long
Dim Node1 As Node, Node2 As Node, Node3 As Node
Dim Fnum As Integer
Dim HelpFileName As String
Dim sText As String
Dim S1 As Long, FL As Long
Dim I As Long, J As Long
Fnum = FreeFile
HelpFileName = App.Path & "\SimpleHelp.shf"
Open HelpFileName For Binary Access Read As Fnum
FL = FileLen(HelpFileName)
ReDim HelpSpace(1 To FL)
Get Fnum, , HelpSpace
Close Fnum
TreeView1.Nodes.Clear
For I = 1 To FL
Select Case HelpSpace(I)
Case SC: S1 = I + 1
Case FC
sText = ""
For J = S1 To I - 1: sText = sText & Chr(HelpSpace(J)): Next J
Set Node1 = TreeView1.Nodes.Add(, , , sText, 1, 1)
Case SS1: S1 = I + 1
Case FS1
sText = ""
For J = S1 To I - 1: sText = sText & Chr(HelpSpace(J)): Next J
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwCIons"rS 1
o I + 1
0h,Os.Add)CktEetpFileNa0CHelpSpace(J)): Next J
i1
FhpSpad(,ha2Aser
FtcCHel
aFhpSh3
i1
)ct1 Title
Ft_.CB_Apace(cad(,ha2AssssssdBtr_e(cad(,ha2AssssssdSx17 Chr(3ha22Asssu2iCfc Function As + 1