主题：关闭Messagebox

Dim Result As DialogResult
Result = MessageBox.Show("结转成功！继续结转？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
   ..........
Else
   Forms("A").Open()
End if

---------------------

选“yes”,关闭MessageBox,留在当前页面

代码怎么写？