Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Windows.Forms.Design
 
Public Class MeinControl
 
Dim Message As String
Dim MessaegTitel As String
Dim MessageStyle As MsgBoxStyle
 
<Browsable(True), Category("Mitteilung")> _
Public Property MyMessage() As String
Get
      return Message
End Get
 
Set(Byval value As String)
     Message = value
End Set
End Property
 
<Browsable(True), Category("Mitteilung")> _
Public Property MyMessageTitel () As String
Get
      return MessageTitel
End Get
 
Set(Byval value As String)
      MessageTitel=value
End Set
End Property
 
<Browsable(True), Category("Mitteilung")> _
Public Property MyMessageStyle () As MsgBoxStyle
Get
      return MessageStyle
End Get
 
Set(Byval value As MsgBoxStyle)
MessageStyle = value
End Set
End Property
 
Private Sub Button1_Click(Byval sender As System.Object, Byval e As _
  System.EventArgs) Handles Button1.Click
MsgBox(Message, MessageStyle, MessageTitel)
End Sub
 
End Class