Public Class Animation
    Dim AniPictureBox As PictureBox
    Dim AniImage As Bitmap
    Dim Thread As New Threading.Thread(AddressOf Ani_Starten)
 
    Private Sub Ani_Starten()
        PBoxProperty.Image = ImageProperty
' Hier kommt der Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz 
' festgelegt.
    End Sub
    Private Sub Ani_Beenden(ByVal Pbox As PictureBox, ByVal Image As Bitmap)
        Pbox.Image = Image
    End Sub
    Private Property PBoxProperty() As PictureBox
        Get
            Return AniPictureBox
        End Get
        Set(ByVal value As PictureBox)
            AniPictureBox = value
        End Set
    End Property
    Private Property ImageProperty() As Bitmap
        Get
            Return AniImage
        End Get
        Set(ByVal value As Bitmap)
            AniImage = value
        End Set
    End Property
 
    Public Sub AniStart(ByVal PBox As PictureBox, ByVal AnimationImage As _
      Bitmap)
        Dim AniProperty As New Animation
        AniProperty.PBoxProperty = PBox
        AniProperty.ImageProperty = AnimationImage
        Thread.Start()
    End Sub
    Public Sub AniStop(ByVal Pbox As PictureBox, ByVal StandardImage As Bitmap)
        If Thread.IsAlive = True Then
            Thread.Abort()
        End If
        Ani_Beenden(Pbox, StandardImage)
    End Sub
 
End Class