vb6.0中如何调用运行对话框？希望高手指点， 要源码哦

vb.net中,只有调用javaScript
选择对话框(确认,取消)
Sub Page_Load(sender As Object, e As EventArgs)
Button1.Attributes.Add("onclick", "return confirm('你要修改这条记录吗？');")
End Sub

确认对话框:(确认)

response.write("