主题：InputValue函数的问题

此主题相关图片如下：360截图20140829175809845.jpg

如上图，要如何得到用户是选择了确定还是取消，类似messagebox那样有个MessageBoxButtons型枚举来返回；

同时弹出这个对话框时不要显示控制栏即那个"X" ,控制用户只能选择确定或取消来退出对话框。

谢谢！

按那个“x”，等于点取消，不必纠结。

Dim Val As Integer = 5
If InputValue(Val, "增加行", "请输入要增加的行数:") Then
    e.Form.Controls("TextBox1").Value = val
    MessageBox.Show("确定")
Else
    MessageBox.Show("取消")
End If