Imports System.Drawing
Public Class Form1
Private Smiley As Bitmap
Private smiley2 As Bitmap
Private smiley3 As Bitmap
Private SmileyLocation As Rectangle
Private SmileyLocation2 As Rectangle
Private SmileyLocation3 As Rectangle
Private Dragging As Boolean = False
Private OffsetX, OffsetY As Integer
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ListView1.AllowDrop = True
Panel1.AllowDrop = True
Smiley = New Bitmap(My.Resources.tree1_1)
Smiley.MakeTransparent(Color.White)
smiley2 = New Bitmap(My.Resources.tree1_2)
smiley2.MakeTransparent(Color.White)
smiley3 = New Bitmap(My.Resources.tree2_1)
smiley3.MakeTransparent(Color.White)
SmileyLocation = New Rectangle(10, 10, Smiley.Width, Smiley.Height)
SmileyLocation2 = New Rectangle(100, 100, Smiley.Width, Smiley.Height)
SmileyLocation3 = New Rectangle(200, 200, Smiley.Width, Smiley.Height)
End Sub
Private Sub picCanvas_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
e.Graphics.DrawImage(Smiley, SmileyLocation)
e.Graphics.DrawImage(smiley2, SmileyLocation2)
e.Graphics.DrawImage(smiley3, SmileyLocation3)
End Sub