' Skew an image by a given amount along one or both axes (the dx and dy ' parameters)' The x and y parameters are the coordinates of the upper-left point' Note: requires Imports System.Drawing.Imaging'' Example:' Dim gr As Graphics = Me.CreateGraphics' gr.Clear(Color.White)' Dim bmp As New Bitmap("logo.bmp")' DrawSkewImage(gr, bmp, 100, 400, -50, 0)' DrawSkewImage(gr, bmp, 300, 400, 0, 50)' DrawSkewImage(gr, bmp, 500, 400, -50, 50)' bmp.Dispose()' gr.Dispose()Sub DrawSkewImage(ByVal gr As Graphics, ByVal bmp As Bitmap, ByVal x As Single, _ ByVal y As Single, ByVal dx As Single, ByVal dy As Single) ' Find the position of (x1,y1) and (x2,y2). Dim x1 As Single = x + bmp.Width Dim y1 As Single = y + dy Dim x2 As Single = x + dx Dim y2 As Single = y + bmp.Height ' Create the points array. Dim points() As Point = {New Point(x, y), New Point(x1, y1), New Point(x2, _ y2)} ' Draw the skewed image gr.DrawImage(bmp, points)End Sub' Note: This code is taken from Francesco Balena's' "Programming Microsoft Visual Basic .NET" - MS Press 2002, ISBN 0735613753' You can read a free chapter of the book at ' http://www.vb2themax.com/HtmlDoc.asp?Table=Books&ID=101000

Exploring the Latest Tech Trends Impacting the Real Estate Industry
The real estate industry is changing thanks to the newest technological advancements. These new developments — from blockchain and AI to virtual reality and 3D printing — are poised to change how we buy and sell homes. Real estate brokers, buyers, sellers, wholesale real estate professionals, fix and flippers, and beyond may