Drawing? What Do We Wrong...

1

1912Dummy

New member
Joined
May 3, 2017
Messages
4
Programming Experience
5-10
[FONT=&quot]Hello,[/FONT]

[FONT=&quot]Can anyone helpme out please[/FONT]
[FONT=&quot]because i don't know anymore how or what to do...[/FONT]

[FONT=&quot]when we run our form and hover over the form it shows great[/FONT]
[FONT=&quot]image 1[/FONT]

[FONT=&quot]when we leave the form and go back it messed up :([/FONT]
[FONT=&quot]image 2[/FONT]


[FONT=&quot]anyone please

VB.NET: 
[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Imports System.Collections.Generic[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Imports System.ComponentModel[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Imports System.Drawing[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Imports System.Drawing.Drawing2D[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Imports System.Windows.Forms[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Imports Employee_Planner_17.FormSkin[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]<ToolboxBitmap(GetType(ToolTip))>[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]<ToolboxItemFilter([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"System.Windows.Forms"[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])>[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]Public Class SkinToolTip[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Inherits ToolTip[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]#Region [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"Fields"[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]' TODO: Instead of hiding these, we should implement a property filter[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    <DefaultValue(True)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    <Browsable(False)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Shadows Property ShowAlways() As Boolean[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return MyBase.ShowAlways[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As Boolean)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            MyBase.ShowAlways = True[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    <DefaultValue(True)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    <Browsable(False)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Shadows Property OwnerDraw() As Boolean[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return MyBase.OwnerDraw[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As Boolean)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            MyBase.OwnerDraw = True[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    <Browsable(False)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Shadows Property IsBalloon() As Boolean[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return MyBase.IsBalloon[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As Boolean)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            MyBase.IsBalloon = False[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    <Browsable(False)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Shadows Property ToolTipTitle() As String[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return MessageText[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As String)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            MessageText = ""[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    <Browsable(False)>[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Shadows Property ToolTipIcon() As ToolTipIcon[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return MyBase.ToolTipIcon[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As ToolTipIcon)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            MyBase.ToolTipIcon = ToolTipIcon.None[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    Friend EventColor As Color[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]#End Region[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]#Region "Constructor"[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    Public Sub New()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        OwnerDraw = True[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        ShowAlways = True[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]        AddHandler Draw, AddressOf MToolTip_Draw[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        AddHandler Popup, AddressOf MToolTip_Popup[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    End Sub[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]#End Region[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]#Region ""[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Function DrawArrow(x As Integer, y As Integer, flip As Boolean) As GraphicsPath[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim GP As New GraphicsPath()[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]        Dim W As Integer = 18 '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]12[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        Dim H As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] = [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]12[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'6[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]        If flip Then[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            GP.AddLine(x + 1, y, x + W + 1, y)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            GP.AddLine(x + W, y, x + H, y + H - 1)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Else[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            GP.AddLine(x, y + H, x + W, y + H)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            GP.AddLine(x + W, y + H, x + H, y)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End If[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]        GP.CloseFigure()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Return GP[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Function[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    Private _TextAlign As ContentAlignment = ContentAlignment.MiddleCenter[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property TextAlign() As ContentAlignment[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _TextAlign[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set(value As ContentAlignment)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _TextAlign = value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private Function GetStringFormat(ByVal ctrlalign As ContentAlignment) As StringFormat[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim strFormat As StringFormat = New StringFormat()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Select Case ctrlalign[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.MiddleCenter[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.MiddleLeft[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.MiddleRight[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.TopCenter[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.TopLeft[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.TopRight[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.BottomCenter[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.BottomLeft[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Case ContentAlignment.BottomRight[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.LineAlignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                strFormat.Alignment = StringAlignment.Far[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Select[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Return strFormat[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Function[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]#End Region[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]#Region "Management Methods"[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]    Public Shadows Sub SetToolTip(control As Control, caption As String)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        MyBase.SetToolTip(control, caption)[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]        If TypeOf control Is IButtonControl Then[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] TODO: This would override tooltips on children[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]For[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Each c As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Control[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]In[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] control.Controls[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                SetToolTip(c, caption)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Next[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Sub[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    Private Sub MToolTip_Popup(sender As Object, e As PopupEventArgs)[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]        Dim styledWindow As IContainerControl = TryCast(e.AssociatedWindow, IContainerControl)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        e.ToolTipSize = New Size([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]270[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.ToolTipSize.Height + [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]150[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Sub[/FONT][/COLOR]


[COLOR=#000000][FONT=Consolas]#Region [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"Properties"[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Layout[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _MessageText As String = "ToolTip"[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property MessageText() As String[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _MessageText[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _MessageText = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private _CornerRadius As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] = [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'15[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property CornerRadius() As Integer[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _CornerRadius[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _CornerRadius = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private _ArrowSize As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] = [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]5[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] ArrowSize() As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _ArrowSize[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _ArrowSize = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]' Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _GlowRadius As Integer = 1 '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]15[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GlowRadius() As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _GlowRadius[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowRadius = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'  Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _GlowHeight As Integer = 1 '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]15[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GlowHeight() As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _GlowHeight[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowHeight = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'  Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _ArrowPosition As ArrowPossition = ArrowPossition.Left[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property ArrowPosition() As ArrowPossition[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _ArrowPosition[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _ArrowPosition = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Colors[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _BackgroundStartColor As Color = Color.FromArgb(42, 42, 42)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property BackgroundStartColor() As Color[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _BackgroundStartColor[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _BackgroundStartColor = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private _BackgroundEndColor As Color = Color.FromArgb([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]58[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]58[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]58[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] BackgroundEndColor() As Color[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _BackgroundEndColor[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _BackgroundEndColor = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]' Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _BorderColor As Color = Color.FromArgb(58, 58, 58)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property BorderColor() As Color[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _BorderColor[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _BorderColor = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private _GlowStartColor As Color = Color.FromArgb([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]42[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]42[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]42[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GlowStartColor() As Color[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _GlowStartColor[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowStartColor = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]' Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _GlowEndColor As Color = Color.FromArgb(58, 58, 58)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property GlowEndColor() As Color[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _GlowEndColor[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _GlowEndColor = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]  Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private _TextColor As Color = Color.FromArgb([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]255[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]114[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]82[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Public [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] TextColor() As Color[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _TextColor[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Get[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _TextColor = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Value[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]' Me.Invalidate()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    End Property[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Private _TextShadowColor As Color = Color.Transparent[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]    Public Property TextShadowColor() As Color[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Return _TextShadowColor[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        End Get[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Set[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            _TextShadowColor = Value[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Me.Invalidate()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Set[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Property[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]#[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Region[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]#Region [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"Helper Methods"[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Private [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GlowPath(rec As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], radius As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]) As GraphicsPath[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        Dim path As New GraphicsPath()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.X, rec.Y, rec.X + radius, rec.Y + rec.Height), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]270[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        path.CloseFigure()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] path[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    Public Enum ArrowPossition[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Enum[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    Friend Shared [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] ArrowPath(rec As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], arrowPos As ArrowPossition, arrowSize As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], radius As [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Integer[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]) As GraphicsPath[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        Dim path As New GraphicsPath()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] radius > [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] AndAlso arrowSize > [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] arrowPos = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]-90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.CloseFigure()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            ElseIf arrowPos = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]-90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Height \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            ElseIf arrowPos = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]-90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize + (radius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.CloseFigure()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            ElseIf arrowPos = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]180[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]-90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + rec.Width \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddArc([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FromLTRB(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize), [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]90[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.AddLine(rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] - arrowSize - radius, rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], rec.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + (radius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                path.CloseFigure()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] path[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]#[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Region[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    Private Sub MToolTip_Draw(sender As Object, e As DrawToolTipEventArgs)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].SmoothingMode = [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].TextRenderingHint = [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]5[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'  e.Graphics.Clear(Color.Transparent)[/FONT][/COLOR]


[COLOR=#A31515][FONT=Consolas]        Dim _BackRect As New Rectangle(0, 0, e.Bounds.Width - 1, e.Bounds.Height - 1)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim _GlowRect As New Rectangle(_CornerRadius \ 2, 1, e.Bounds.Width - _CornerRadius - _ArrowSize, _GlowHeight)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Adjust [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Glow[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_CornerRadius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + _ArrowSize, [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _CornerRadius - _ArrowSize, _GlowHeight)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_CornerRadius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _CornerRadius - _ArrowSize, _GlowHeight)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_CornerRadius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], _ArrowSize + [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _CornerRadius, _GlowHeight)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _GlowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_CornerRadius \ [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _CornerRadius, _GlowHeight)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Draw[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Using _BackgroundBrush As New LinearGradientBrush(_BackRect, _BackgroundStartColor, _BackgroundEndColor, 90)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]            Using _GlowBrush As New LinearGradientBrush(_GlowRect, _GlowStartColor, _GlowEndColor, 90)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                Using _BorderPen As New Pen(_BorderColor)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                    e.Graphics.SmoothingMode = SmoothingMode.AntiAlias[/FONT][/COLOR]

[COLOR=#A31515][FONT=Consolas]                    '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Draw [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Background[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]First[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                    e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].FillPath(_BackgroundBrush, ArrowPath(_BackRect, _ArrowPosition, _ArrowSize, _CornerRadius))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                    [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Draw Glow[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                    e.Graphics.FillPath(_GlowBrush, GlowPath(_GlowRect, _GlowRadius))[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                    '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Draw Border[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                    e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].DrawPath(_BorderPen, ArrowPath(_BackRect, _ArrowPosition, _ArrowSize, _CornerRadius))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                    e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].SmoothingMode = SmoothingMode.[[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Default[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]][/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR]



[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Get Rectangles[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim _ShadowRect As New Rectangle(0, 1, e.Bounds.Width - _ArrowSize, e.Bounds.Height - 1)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim _TextRect As New Rectangle(0, 0, e.Bounds.Width - _ArrowSize, e.Bounds.Height - 1)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Adjust [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Text[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] & Shadow Rectangles[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Left[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _ShadowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_ArrowSize, [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _TextRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](_ArrowSize, [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Right[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _ShadowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _TextRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Top[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _ShadowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], _ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] + [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]3[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]) - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _TextRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], _ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]2[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]3[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        ElseIf _ArrowPosition = ArrowPossition.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bottom[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Then[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _ShadowRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], _ArrowSize + [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]3[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]) - [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]1[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            _TextRect = New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Rectangle[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#000000][FONT=Consolas]0[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Width - _ArrowSize, e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bounds[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Height - (_ArrowSize * [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]3[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]))[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]If[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Get String Format[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        Dim _TextFormat, default_ As New StringFormat()[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        _TextFormat.Alignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        _TextFormat.LineAlignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        default_.Alignment = StringAlignment.Center[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        default_.LineAlignment = StringAlignment.Near[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]        '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Draw[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _ShadowBrush As New SolidBrush(_TextShadowColor)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] _TextBrush As New SolidBrush(_TextColor)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]'Draw Shadow First[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                e.Graphics.DrawString(ToolTipTitle, New Font("Segoe UI", 9, FontStyle.Bold), _ShadowBrush, _ShadowRect, default_)[/FONT][/COLOR]
[COLOR=#A31515][FONT=Consolas]                '[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]Draw [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Text[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]                e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].DrawString(ToolTipTitle, New [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Font[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"Segoe UI"[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], [/FONT][/COLOR][COLOR=#000000][FONT=Consolas]9[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], FontStyle.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Bold[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), _TextBrush, _TextRect, default_)[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]            [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Using[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].SmoothingMode = SmoothingMode.AntiAlias[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        e.[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].PixelOffsetMode = PixelOffsetMode.HighQuality[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Sub[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]End Class[/FONT][/COLOR][COLOR=#444444][FONT=&quot]

[/FONT][FONT=&quot]how to use:
VB.NET: 
[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Private[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Form2_MouseHover(sender [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Object[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] EventArgs) [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Handles[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Me[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].MouseHover[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.ToolTipTitle = [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]Nothing[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.MessageText = [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"Just a test :p"[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.SetToolTip(sender, [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Text[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Sub[/FONT][/COLOR]

[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Private[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Form2_MouseLeave(sender [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Object[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], e [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] EventArgs) [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Handles[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Me[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].MouseLeave[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.ToolTipTitle = [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]Nothing[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.MessageText = [/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]Nothing[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.RemoveAll()[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        SkinToolTip1.SetToolTip(sender, [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Text[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]    [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#444444][FONT=&quot]


[/FONT]
 

Attachments

  • Untitled-01.png
    Untitled-01.png
    9.1 KB · Views: 64
  • Untitled-2.png
    Untitled-2.png
    10.5 KB · Views: 70
Sort by date Sort by votes
[FONT=&quot]Its seems when we add
VB.NET: 
[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]e[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Graphics[/FONT][/COLOR][COLOR=#000000][FONT=Consolas].Clear[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](Color.Transparent)[/FONT][/COLOR][COLOR=#444444][FONT=&quot]

[/FONT][FONT=&quot]it keeps a black line at the background[/FONT]
[FONT=&quot]but then we don't get the previous mess up part :D[/FONT]
[FONT=&quot]but how to get rid of the black part??
[/FONT]Untitled-10.png
 
Upvote 0 Downvote
this code helps a little :D
but not 100% what it must be but
its lot better :)

VB.NET: 
[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]<DllImport([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"user32.dll"[/FONT][/COLOR][COLOR=#000000][FONT=Consolas])>[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]Private[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Shared[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GetWindowRect(hWnd [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] IntPtr, [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]ByRef[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] lpRect [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] RECT) [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] <MarshalAs(UnmanagedType.Bool)> [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Boolean[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR]

[COLOR=#0000FF][FONT=Consolas]Private[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] GetWindowRect() [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Rectangle[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]Dim[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] rect [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]As[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]New[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] RECT()[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]Dim[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] window = [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]TryCast[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]GetType[/FONT][/COLOR][COLOR=#000000][FONT=Consolas](ToolTip).GetField([/FONT][/COLOR][COLOR=#A31515][FONT=Consolas]"window"[/FONT][/COLOR][COLOR=#000000][FONT=Consolas], BindingFlags.Instance [/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Or[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] BindingFlags.NonPublic).GetValue([/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Me[/FONT][/COLOR][COLOR=#000000][FONT=Consolas]), NativeWindow)[/FONT][/COLOR]
[COLOR=#000000][FONT=Consolas]        GetWindowRect(window.Handle, rect)[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]Return[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] rect[/FONT][/COLOR]
[COLOR=#0000FF][FONT=Consolas]End[/FONT][/COLOR][COLOR=#0000FF][FONT=Consolas]Function
VB.NET: 
[COLOR=#000000]Private Sub MToolTip_Draw(sender As Object, e As DrawToolTipEventArgs)[/COLOR]
[COLOR=#000000]Dim graphics = e[/COLOR][COLOR=#000000].Graphics[/COLOR]
[COLOR=#000000]        Dim windowRect = GetWindowRect()[/COLOR]
[COLOR=#000000]        Graphics.CopyFromScreen(windowRect[/COLOR][COLOR=#000000].Left[/COLOR][COLOR=#000000], windowRect[/COLOR][COLOR=#000000].Top[/COLOR][COLOR=#000000], [/COLOR][COLOR=#000000]0[/COLOR][COLOR=#000000], [/COLOR][COLOR=#000000]0[/COLOR][COLOR=#000000], New Size(e[/COLOR][COLOR=#000000].Bounds[/COLOR][COLOR=#000000].Width[/COLOR][COLOR=#000000], e[/COLOR][COLOR=#000000].Bounds[/COLOR][COLOR=#000000].Height[/COLOR][COLOR=#000000]))

if anyone knows a better function please tell me.
we want to make it 100% working without bugs

[/COLOR]
 
Upvote 0 Downvote

Similar threads

N
  • Locked
  • Question
Question Estou criando um ComboBox Personalizado
Replies
1
Views
245
JohnH
JohnH
RobertAlanGustafsonII
  • Solved
Question How do I host an arbitrary custom control in a DataGridView cell?
Replies
6
Views
1K
jdelano
J
Keldecknight
  • Question
Question Simple Nerual network not swapping outputs during execution after being trained
Replies
2
Views
1K
jmcilhinney
jmcilhinney
R
  • Question
Question Issue for a Nested Timer Class
Replies
3
Views
1K
cjard
cjard
Pixel-Ink
  • Question
Resolved No Windows Explorer in Enumerated Window List in Listbox
Replies
7
Views
1K
Pixel-Ink
Pixel-Ink

Share this page

Latest posts

Back
Top