Private Sub Command1_Click()
MsgBox ("做我的女朋友好吗")
MsgBox ("房产证写你的名字")
MsgBox ("保大")
MsgBox ("我妈会游泳")
x = MsgBox("做我女朋友好不好", vbOKCancel)
If x = vbOK Then
MsgBox ("爱你 么么哒")
ElseIf x = vbCancel Then
MsgBox ("哼 再见")
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！