THISFORM.Timer1.Enabled = .T. THISFORM.scalecomm.output = "The_command_to_interrogate_the_scale"substituting the proper command for the scale, of course.
THIS.ENABLED = .F. THISFORM.scaledata = THISFORM.scaledata + THISFORM.scalecomm.inputIn the form's Init add:
THIS.scalecomm.portopen = .T. THIS.scaledata = ""In the form's Destroy add:
THIS.scalecomm.portopen = .F.
You may need to adjust a few other things depending on the scale's requirements. The scale data should accumulate in the form's scaledata property for your use. If it takes more than 1 second for the scale to respond, increase the timer's "Interval". You could add an editbox and bind it to the scaledata for display while testing. Let me know if this gets you started.