Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Dim F As Form = New Form
	     F.MdiParent = Me
        F.Show()
        FlatControls.OfficeMenuProvider.Hook(Me)
    End Sub
 
    Private Sub MenuItem19_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles MenuItem19.DrawItem
        For Each m As MenuItem In Me.MenuItem19.MenuItems
            m.OwnerDraw = True
            Me.OfficeMenuProvider1.SetImageIndex(m, -1)
        Next
    End Sub