Public Class Form1
    Public b As New Biene(0, 0, New Bitmap("C:\temp\biene.jpeg"))
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.DoubleBuffered = True
    End Sub
 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        b.X = e.X
        b.Y = e.Y
        Me.Invalidate()
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.DrawImage(b.Pic, b.X, b.Y)
    End Sub
End Class
 
 
Public Class Biene
 
    Public X As Integer
    Public Y As Integer
    Public Pic As Bitmap
    Public Sub New(ByVal _x As Integer, ByVal _y As Integer, ByVal _bm As _
      Bitmap)
        X = _x
        Y = _y
        Pic = _bm
    End Sub
End Class

Auf der Suche nach einem Hilfreichen Tutorial? Dann schau vorbei, auf http://tuts4you.de