目前状态：
在窗口A中有一个按钮，当打开窗口A时，按钮通过串口发送A1，代码如下，已经实现。Ports("COM4").Write("A1")
希望实现：
在窗口A中增加一个TextBox1,TextBox1绑定到表B的第一列。希望打开窗口A时，TextBox1通过串口，把TextBox1的内容发送出去。
比如：TextBox1=第一列，第一列是"B1"时，当打开窗口A时，TextBox1把B1通过串口发送出去
请问代码如何写，谢谢
dim r as row = tables("表B").current
if r isnot nothing andalso r.isnull("第一列")=false then
Ports("COM4").Write(r("第一列"))
end if