Help with some code

[abcdefg]

Okay I got this code and it gives me an error saying object reference not set to an instance of an object. Im not sure how to fix this. The code is not good i know but im trying to make a quick tile engine and get it to work quick. Im not sure this would work. Any help about getting this thing to draw tiles and most importantly fix the error are helpful Thanx.

Public Structure tilesystem
        Public camerax, cameray As Integer
        Public startx, starty As Integer
        Public tilearray As Char()()
        Public offsetx, offsety As Integer
    End Structure
    Public Structure bimage
        Public imagearray As Bitmap()
        Public numframes As Integer
        Public speed As Integer
        Public posx, posy As Integer
    End Structure
 
Dim graphicobject As Graphics
    Dim aimage As Bitmap
    Dim mimages As ArrayList = New ArrayList
    Dim count As Integer = 1
    Dim lrectangle As New Rectangle(0, 0, 33, 33)
    Dim partimage As Bitmap
    Dim bitmapimage As bimage = New bimage
    Dim state As Boolean = 0
    Dim avar As Integer = 1
    Dim color As System.Drawing.Color = color.Black
    Dim bcolor As System.Drawing.Color = bcolor.Blue
    Dim atilesystem As New tilesystem
    
 
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.DoubleClick
        graphicobject = Me.CreateGraphics
        aimage = Image.FromFile("c:\\dart\dmannoborders.bmp")
        While (avar < 1000)
            lrectangle.X() += 1
            If (lrectangle.X() > 640) Then
                lrectangle.X() = 33
            End If
            partimage = aimage.Clone(New Rectangle(count * 33, 0, 33, 33), Drawing.Imaging.PixelFormat.DontCare)
 
            'ERROR ON THIS LINE imagearray is the problem
            bitmapimage.imagearray(bitmapimage.numframes) = partimage   
 
            bitmapimage.numframes += 1
            partimage.MakeTransparent(color)
            graphicobject.Clear(bcolor)
            graphicobject.DrawImage(partimage, lrectangle)
            tileengine(atilesystem, 640, 480)
            'Sleep(1)
            count += 1
            If (count > 8) Then
                count = 1
            End If
            avar += 1
        End While
    End Sub
 
    Public Function tileengine(ByRef atilesystem As tilesystem, ByVal resx As Integer, ByVal resy As Integer)
        Dim x As Integer = resx / 32
        Dim y As Integer = resy / 32
        Dim count As Integer = 0
        Dim count2 As Integer = 0
        Dim offsetx, offsety As Integer
        Dim index As Integer = 0
 
 
 
        atilesystem.startx = resx / 2
        atilesystem.starty = resy / 2
        atilesystem.camerax = atilesystem.startx
        atilesystem.cameray = atilesystem.starty
        atilesystem.offsetx = atilesystem.camerax Mod 32
        atilesystem.offsety = atilesystem.cameray Mod 32
        For count = 0 To y Step 1
            For count2 = 0 To x Step 1
                index = Val(atilesystem.tilearray(count2)(count))
                'index into image array to get that tile
                graphicobject.DrawImage(bitmapimage.imagearray(index), lrectangle)
            Next
        Next
    End Function

[Memnoch1207]

is bimage a class you created?

[abcdefg]

Yes bitmapimage is an instance of the bimage structure thats defined in the code below. I get an error trying to put a bitmap into my imagearray that holds bitmaps. Im not too familiar with VB so im probably doing something dumb.

Public Structure bimage
        Public imagearray As Bitmap()
        Public numframes As Integer
        Public speed As Integer
        Public posx, posy As Integer
    End Structure

[salvelinus]

I'm not familiar with graphics, but I'd bet the problem is the line of code above the one throwing an exception. partimage is likely being set to Nothing. That works, not like you want it to, but throws the exception when you try to use it.
Try checking the error line with If Not partimage = Nothing Then...
At least that's my experience with that type of error.

[abcdefg]

Nevermind I got it. I just needed a constructor for my struct that made a new instance of the array