Public Class Tester
Public Shared Sub Main
Dim Alerter As New MyMessageBox
Alerter.Alert("No Problems!")
Alerter.Alert("No Problems!", MsgBoxStyle.Exclamation)
End Sub
End Class
Public Class MyMessageBox
Public Sub Alert(ByVal Text As String)
MsgBox(Text)
End Sub
Public Sub Alert(ByVal Text As String, ByVal Icon As MsgBoxStyle)
MsgBox(Text, Icon)
End Sub
End Class
|