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