Draw An Arrow

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