Anyone dare to enlighten me about the creation of EMF+ files?

[Napivo1972]

           Dim PB As New PictureBox
                PB.Height = 2000
                PB.Width = 2000
                Dim g As Graphics = PB.CreateGraphics
                Dim r As New Rectangle(-1000, -1000, 1000, 1000)
                PB.RectangleToScreen(r)
                Dim p As New Pen(Red, 1)
                Dim f As Image = New Metafile(g.GetHdc, EmfType.EmfPlusDual)
                g.DrawLine(p, 0, 0, 100, 100)
                f.Save("test.emf")

This doesn