thisform.Comm1.CommPort = TRANSFORM(thisform.comport.Value)
>thisform.Comm1.CommPort="11"
>thisform.Comm1.CommPort =ALLTRIM(thisform.comport.Value)