Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private m_bMoving As Boolean
Private m_nodX As Node
Private m_DirtyFlag As DirtyFlag
Private m_DirtyNode As String
Private m_Response As Integer
Private m_bLoadingRTF As Boolean
Private m_strTemp As String
Private m_bAdded As Boolean
Const sglSplitLimit = 500
Private Sub cmdExit_Click()
'
' quit application
'
On Error Resume Next
Unload Me
End Sub
Private Sub Form_Load()
'
' restore last window settings,
' load the treelist with Automation Server object names
