Attribute VB_Name = "VBHLLAPI1"
' Change Activity:
' FLAG REASON   RLSE DATE     ORIGIN  COMMENT
' ---- -------- ---- -------- ------- ----------------------------------------------
' $M1  DXXXXX   4.3  990727   MFWU    Get Wrong Host Code Page by QuerySessionStatus
'                                     Get Wrong NLS type by QuerySystem

Global ConnectSession As String
Global LogData$(0 To 99)
Global HllFunctionNo As Long
Global HllData       As String * 8000
Global Hll20Data     As Func20Type     '@M1A
Global Hll22Data     As Func22Type     '@M1A
Global HllLength     As Long
Global HllReturnCode As Long
Global LogTop        As Integer
Global LogEnd        As Integer
Global Loged         As Integer
Global DisplayRow    As Integer
Global DisplayCol    As Integer
Global Item1Value    As Integer
Global Item2Value    As Integer
Global Item3Value    As Integer
Global Item4Value    As Integer
Global Item5Value    As Integer
Global Item6Value    As Integer
Global Item7Value    As Integer
Global Item8Value    As Integer
Global Item9Value    As Integer
Global Item10Value   As Integer
Global Item11Value   As Integer
Global Item12Value   As Integer
Global Item13Value   As Integer
Global Item14Value   As Integer
Global Item15Value   As Integer
Type Func103Type
  SessionIDList As String * 1
  Extendedname As String * 3
  XLeft     As Long
  YBottom   As Long
  XRight    As Long
  YTop      As Long
End Type
Type Func104Type
  SessionIDList As String * 1
  Extendedname As String * 3
  Option    As String * 1
  Reserved  As String * 1
  Status    As Integer
  XLeft     As Long
  YTop      As Long
  XWidth    As Long
  YHight    As Long
  Zorder    As Long
End Type
Type Func104EType
  SessionIDList As String * 1
  Extendedname As String * 3
  Option    As String * 1
  Reserved  As String * 1
  Status    As Integer
  XFont     As Integer
  YFont     As Integer
  XPsOffset As Integer
  YPsOffset As Integer
  FirstRow  As Integer
  FirstCol  As Integer
  WinHnd    As Long
End Type
'@M1A start
Type Func20Type
  VersionNum As String * 1
  LevelNum As String * 2
  DateStr As String * 6
  Reserved1 As String * 3
  HardBase As String * 1
  ProgramType As String * 1
  Reserved2 As String * 2
  PerComVer As String * 2
  Reserved3 As String * 1
  ExtErrCode1 As String * 4
  ExtErrCode2 As String * 4
  MachineType As Integer
  NlsType As Integer
  MonitorType As String * 1
  Reserved4 As String * 3
End Type

Type Func22Type
  SessionIDList As String * 1
  Reserved As String * 3
  LongName As String * 8
  SessionType As String * 1
  SesChr As Byte
  Rows As Integer
  Cols As Integer
  HCP As Integer
End Type
'@M1A end
Declare Function hllapi& Lib "PCSHLL32.DLL" (Func&, ByVal DataString$, Length&, RetC&)
Declare Function hllapi20& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, Hll20Data As Func20Type, Length&, RetC&)       '@M1A
Declare Function hllapi22& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, Hll22Data As Func22Type, Length&, RetC&)       '@M1A
Declare Function hllapi103& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, Hll103Data As Func103Type, Length&, RetC&)
Declare Function hllapi104& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, Hll104Data As Func104Type, Length&, RetC&)
Declare Function hllapi104E& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, Hll104EData As Func104EType, Length&, RetC&)
Global Const CHECKED = 1
Global Const UNCHECKED = 0

' Common File Dialog Constants
Const cdlOFNAllowMultiselect = &H200&
Const cdlOFNCreatePrompt = &H2000&
Const cdlOFNFileMustExist = &H1000&
Const cdlOFNHideReadOnly = &H4&
Const cdlOFNNoChangeDir = &H8&
Const cdlOFNNoReadOnlyReturn = &H8000&
Const cdlOFNNoValidate = &H100&
Const cdlOFNOverwritePrompt = &H2&
Const cdlOFNPathMustExist = &H800&
Const cdlOFNReadOnly = &H1&
Const cdlOFNShareAware = &H4000&
Const cdlOFNHelpButton = &H10&
Const cdlOFNExplorer = &H8000&
Const cdlOFNNoDereferenceLinks = &H100000
Const cdOFNLongNames = &H200000

Public Sub AdjustForNT351(FormToAdjust As Form)

  For Each IndexControl In FormToAdjust.Controls()
    If TypeOf IndexControl Is TextBox Then
      If IndexControl.ScrollBars = 1 Then ' if Horizontal ScrollBar
        IndexControl.Height = IndexControl.Height + 120 ' Flat
        IndexControl.Top = IndexControl.Top - 30 ' Flat
      End If
    End If
  Next IndexControl
End Sub


