Your technology certification is waiting. Enroll in Cloud Class ®
Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
Dim y1 As Integer = Panel1.Height
Dim x1 As Integer = Panel1.Width
Dim y2 As Integer = y1 / 2
Dim x2 As Integer = x1 / 2
Dim y4 As Integer = y1 / 4
Dim x4 As Integer = x1 / 4
Dim y8 As Integer = y1 / 8
Dim x8 As Integer = x1 / 8
'.DrawLine(Pens.Gray, 0, y2, x1, y2)
'.DrawLine(Pens.Gray, x2, 0, x2, y1)
'.DrawEllipse(New Pen(Brushes.Gray, 3), x4, y4, x2, y2)
'.DrawEllipse(New Pen(Brushes.Gray, 3), x4, y8, x2, y4 * 3)
.DrawArc(New Pen(Brushes.Black, 3), x4, y4, x2, y2, 0, 180)
.DrawArc(New Pen(Brushes.Black, 3), x4, y8, x2, y4 * 3, 0, -180)
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.