Draw An Arrow

Posted on 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.
Code VB.NET

Related Posts

PowerShell Get All Environment Variables

Posted on

If you need to know some of the system variables that are already set you can run this script to get the values Get-Childitem env: gci env: | sort name Once you know what variable you want you can do something like this Write-Host "Computer:`t" $env:COMPUTERNAME Write-Host "Domain:`t" $env:USERDOMAIN All…

Read More

CSharp – Random Password Generator

Posted on

Sometimes it’s helpful to simply have a random password. In this small group of code you can define what parameters to use, I have taken the liberty to remove some of the characters that are usually mistaken for a different character like an upper case I and the number 1….

Read More

Ektron Rename Templates

Posted on

This script will rename template paths SET XACT_ABORT ON DECLARE @currval NVARCHAR(500) DECLARE @newval NVARCHAR(500) DECLARE @search NVARCHAR(500) DECLARE @replace NVARCHAR(500) SET @search = ‘/Index.aspx’ –string to find SET @replace = ‘/Default.aspx’ –replacement string DECLARE @pos INT DECLARE @id BIGINT BEGIN TRAN DECLARE curs CURSOR LOCAL FAST_FORWARD FOR SELECT template_id…

Read More