Public Class Form1 Private angle As Integer Dim imagetwo As Bitmap Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load imagetwo = New Bitmap("C:\Documents and Settings\wiswalld\My Documents\DEP Police Patch.bmp") imagetwo.MakeTransparent(Color.Black) End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint e.Graphics.TranslateTransform(60, 60) e.Graphics.RotateTransform(angle) e.Graphics.DrawImage(imagetwo, -50, -50, 100, 100) e.Graphics.ResetTransform() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.angle += 5 Me.Refresh() End Sub End Class
Form
OnPaint
Panel
Control
SetStyles
Invalidate
Refresh
Rectange
Region
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)