Draw An Arrow

Posted on December 20, 2013October 26, 2015 By David Kittell

Imports System.Drawing
Imports System.Drawing.Drawing2D

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
	Dim grp As Graphics = e.Graphics
	Dim TempPen As New Pen(Color.Aqua, 10)
	TempPen.StartCap = Drawing2D.LineCap.ArrowAnchor
	grp.DrawLine(TempPen, 100, 50, 20, 50)
End Sub
End Class

Originally Posted on December 20, 2013
Last Updated on October 26, 2015

All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.

Related

Code VB.NET