ovalshape

Hello when i use this it is doing exacetly what it is supose to

butt i also get a ugly line around the ovalshape.

what is wrong with this powerpack.

Imports Microsoft.VisualBasic.PowerPacks

PublicClass Form1

FriendWithEvents PictureBox1As PictureBox

FriendWithEvents PictureBox2As PictureBox

FriendWithEvents ShapeContainer1As ShapeContainer

FriendWithEvents OvalShape1As OvalShape

FriendWithEvents OvalShape2As OvalShape

FriendWithEvents OvalShape3As OvalShape

FriendWithEvents OvalShape4As OvalShape

PrivateSub Form1_Load(ByVal senderAs System.Object,ByVal eAs System.EventArgs)HandlesMyBase.Load

InitializeComponent()

Me.PictureBox1 =New PictureBox

Me.PictureBox2 =New PictureBox

Me.ShapeContainer1 =New ShapeContainer

Me.OvalShape1 =New OvalShape

Me.OvalShape2 =New OvalShape

Me.OvalShape3 =New OvalShape

Me.OvalShape4 =New OvalShape

' Instellingen Form 1

Me.MinimumSize =New Size(500, 500)

Me.MaximumSize =New Size(500, 500)

Me.BackColor = Color.Black

Me.Controls.Add(Me.PictureBox1)

Me.Controls.Add(Me.PictureBox2)

Me.Controls.Add(Me.ShapeContainer1)

' Instellingen van PictureBox 1.

Me.PictureBox1.Size =New Size(31, 23)

Me.PictureBox1.Location =New Point(50, 100)

Me.PictureBox1.BackColor = Color.Black

Me.PictureBox1.Image =My.Resources.Resource2.Nederland

' Instellingen van PictureBox 2.

Me.PictureBox2.Size =New Size(31, 23)

Me.PictureBox2.Location =New Point(50, 150)

Me.PictureBox2.BackColor = Color.Black

Me.PictureBox2.Image =My.Resources.Resource2.Engeland

' Instellingen van Shapecontainer 1.

Me.ShapeContainer1.Shapes.AddRange(New Shape() {Me.OvalShape1, _

Me.OvalShape2, _

Me.OvalShape3, _

Me.OvalShape4})

Me.ShapeContainer1.Size =New Size(492, 492)

' Instellingen van OvalShape 1.

Me.OvalShape1.Size =New Size(50, 40)

Me.OvalShape1.Location =New Point(100, 90)

Me.OvalShape1.BackgroundImageLayout = ImageLayout.Center

Me.OvalShape1.BackStyle = BackStyle.Opaque

Me.OvalShape1.BackgroundImage =My.Resources.Resource1.Standaard_White

' Instellingen van OvalShape 2.

Me.OvalShape2.Size =New Size(50, 40)

Me.OvalShape2.Location =New Point(100, 140)

Me.OvalShape2.BackgroundImageLayout = ImageLayout.Center

Me.OvalShape2.BackStyle = BackStyle.Opaque

Me.OvalShape2.BackgroundImage =My.Resources.Resource1.Standaard_White

' Instellingen van OvalShape 3.

Me.OvalShape3.Size =New Size(50, 40)

Me.OvalShape3.Location =New Point(100, 190)

Me.OvalShape3.BackgroundImageLayout = ImageLayout.Center

Me.OvalShape3.BackStyle = BackStyle.Opaque

Me.OvalShape3.BackgroundImage =My.Resources.Resource1.Standaard_White

' Instellingen van OvalShape 4.

Me.OvalShape4.Size =New Size(50, 40)

Me.OvalShape4.Location =New Point(100, 240)

Me.OvalShape4.BackgroundImageLayout = ImageLayout.Center

Me.OvalShape4.BackStyle = BackStyle.Opaque

Me.OvalShape4.BackgroundImage =My.Resources.Resource1.Standaard_White

Nightblade

[7175 byte] By [Nightblade] at [2008-1-9]