Button 里加msgbox
Dim MsgIcon As MsgBoxStyle = MsgBoxStyle.Information
Dim MsgButton As MsgBoxStyle = MsgBoxStyle.OkCancel
Dim OpenMessage As Integer
If CheckDate(Login1.UserName) Then
OpenMessage = MsgBox("Change ?", MsgIcon + MsgButton, "title")
Select Case OpenMessage
Case DialogResult.OK
//作修改
Case DialogResult.Cancel
//返回
End Select