Private Sub txtCode_GotFocus()
 
         ' sets txtCode as the current field 
         ' sets form status line to contain the current field's long
         ' description
         ' sets the current field name to use with "get extended help" 
 
         Dim sBuff As String, iRet As Integer
         sBuff = String(FIELD_DATA_SIZE, Chr(0)) ' pre-allocate memory
 
         ' set form status line to contain the current field long description 
         iRet = LceGetFieldDesc(iSession, "SKILCODE", sBuff)
         frmMain.status2 = (sTrim(sBuff)) 
 
         ' store the current field name to use with "get extended help" 
         sLastField = "SKILCODE" ' for help