Private Sub lstSkills_Click()
   
         ' This subroutine sets the fields displayed to the details of the 
         ' list's currently selected skill    
 
         Dim iRet As Integer
         Dim sBuff As String
         Dim lFlags As Long
         Dim lDataLen As Long
 
         If (lstSkills.ListIndex > -1) Then ' selected
             ' Read record 
             ' set key 
             iRet = LceSetFieldValue(iSession, "SKILCODE", _
                    SkillKey(lstSkills.ListIndex)) 
             ' fetch record
             iRet = LceFetch(iSession, "SKILCODE,SKILDESC", "SKLTAB", _ 
                    "SKILCODE") ' Get Record
 
             ' get data and set fields 
             ' get code
             iRet = LceGetFieldDataLength(iSession, "SKILCODE", lDataLen)
             sBuff = String(lDataLen + 1, Chr(0)) 
             iRet = LceGetFieldValueX(iSession, "SKILCODE", sBuff, lFlags) ' Get Field
             txtCode = sTrim(sBuff) ' display data
             ' get description
             iRet = LceGetFieldDataLength(iSession, "SKILDESC", lDataLen)
             sBuff = String(lDataLen + 1, Chr(0)) 
             iRet = LceGetFieldValueX(iSession, "SKILDESC", sBuff, lFlags)
             txtDesc = sTrim(sBuff)
         End If
     End Sub