Visual Basic

Public Class MyMenuItem
    Inherits System.Windows.Forms.MenuItem

    Private mImage As Image
    Public Property Image() As Image
        Get
            Return mImage
        End Get
        Set(ByVal Value As Image)
            mImage = Value
        End Set
    End Property

    Public Sub New()

        MyBase.new()
        Me.OwnerDraw = True

    End Sub

    Protected Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)

        'Draw image and text here

        MyBase.OnDrawItem(e)
    End Sub

End Class

Dim frm2nd as frmDeposit<br />
<br />
frm2nd.ShowDialog()

Private Sub SomeEventHandler()
  someObjVar = New Form2()
  someObjVar.Show()
End Sub

Private Sub SomeEventHandler()
  If Me.InvokeRequired Then
    Me.Invoke(New appropriateDelegate(AddressOf Me.SomeEventHandler))
  Else
    someObjVar = New Form2()
    someObjVar.Show()
  End If
End Sub

<br />
Public Class DHTypeConverter<br />
    Inherits TypeConverter<br />
<br />
    Public Overloads Overrides Function GetPropertiesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean<br />
        Return True<br />
    End Function<br />
<br />
    Public Overloads Overrides Function GetProperties(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object, ByVal attributes() As System.Attribute) As System.ComponentModel.PropertyDescriptorCollection<br />
        Return TypeDescriptor.GetProperties(GetType(DHObject))<br />
<br />
    End Function<br />
End Class<br />

<br />
<TypeConverter(GetType(DHTypeConverter)), _<br />
       DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _<br />
       Property MoveBackButton() As DHButton<br />
        Get<br />
            Return m_MoveBackButton<br />
        End Get<br />
        Set(ByVal Value As DHButton)<br />
            m_MoveBackButton = Value<br />
        End Set<br />
    End Property<br />

<br />
Dim m_foobar() As Foobar = {New Foobar, New Foobar}<br />
<br />
    Property MyFooBar() As Foobar() '<--Notice the bracktes<br />
        Get<br />
            Return m_foobar<br />
        End Get<br />
        Set(ByVal Value As Foobar())<br />
            m_foobar = Value<br />
        End Set<br />
    End Property<br />

<br />
Public Class Foobar<br />
<br />
    Dim m_Foo As TextBox<br />
<br />
    Property FooTextBox() As TextBox<br />
        Get<br />
            Return m_Foo<br />
        End Get<br />
        Set(ByVal Value As TextBox)<br />
            m_Foo = Value<br />
        End Set<br />
    End Property<br />
<br />
    Overrides Function ToString() As String<br />
        Return "(FooBar)"<br />
    End Function<br />