主题：文本框问题（急）

代码如下：

Dim tx As WinForm.TextBox
tx = e.Form.Controls("textbox1")
tx.Value = "-" & tx.value

文本框控件的事件：ValueChanged中增加以上代码。

应该可以达到你所要求的要求了。