VERSION 5.00
Begin VB.Form Query_Cbo 
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   6735
   ClientLeft      =   60
   ClientTop       =   390
   ClientWidth     =   9465
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   6735
   ScaleWidth      =   9465
   ShowInTaskbar   =   0   'False
   Begin VB.CommandButton ssp_quit 
      Height          =   612
      Left            =   8700
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   6000
      Width           =   612
   End
   Begin VB.OptionButton opt_Cat 
      Height          =   192
      Index           =   0
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Visible         =   0   'False
      Width           =   3000
   End
   Begin VB.Label lbl_Cat 
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   192
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Visible         =   0   'False
      Width           =   2952
   End
End
Attribute VB_Name = "Query_Cbo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()

Dim i As Integer
Dim li_Left As Integer
Dim li_top As Integer
Dim ls_CurrDetail As String

MouseOff

If gl_CodePage <> 1252 And gl_CodePage <> 0 Then ChangeCharSet Me

ssp_quit.Picture = LoadResPicture(RES_QUIT, 1)
li_Left = 120
li_top = 120
ls_CurrDetail = ""
For i = 0 To Query.cbo_field.ListCount - 1
    If gut_Field(Query.cbo_field.ItemData(i)).Detail <> ls_CurrDetail Then
        If i <> 0 Then
            Load lbl_Cat(i)
        End If
        lbl_Cat(i).top = li_top
        lbl_Cat(i).left = li_Left
        lbl_Cat(i).Visible = OK
        ls_CurrDetail = gut_Field(Query.cbo_field.ItemData(i)).Detail
        lbl_Cat(i).Caption = gut_Field(Query.cbo_field.ItemData(i)).DetailTrans
        li_top = li_top + 250
        If li_top > 6000 Then
            li_top = 120
            li_Left = li_Left + 3000
        End If
    End If
    If i <> 0 Then
        Load opt_Cat(i)
    End If
    opt_Cat(i).top = li_top
    opt_Cat(i).left = li_Left
    opt_Cat(i).Visible = OK
    opt_Cat(i).Caption = Query.cbo_field.List(i)
    li_top = li_top + 250
    If li_top > 6000 Then
        li_top = 120
        li_Left = li_Left + 3000
    End If
Next i
MouseOn

End Sub

Private Sub opt_Cat_Click(Index As Integer)

MouseOff
Query.cbo_field.ListIndex = Index
Unload Me
MouseOn

End Sub
Private Sub ssp_quit_Click()

MouseOff
Query.cbo_field.ListIndex = -1
Unload Me
MouseOn

End Sub
