=thisform.ApptType
label.Caption = "=thisform.ApptType"
>label.caption = thisform.ApptType >label.refresh()