Oka.. here is the section of my code thats not working.. Sub Loader() Dim I As Integer 'From here we will display the Loading screen... LoadObject ddsdBG, BG, BGRect, App.Path & "\bmpmaps\main.bmp", 600, 800, False, 0, 0 BackBuffer.BltFast 0, 0, BG, BGRect, DDBLTFAST_WAIT BackBuffer.SetForeColor RGB(0, 128, 255) BackBuffer.DrawText 320, 250, "Loading...", False Primary.Flip Nothing, DDFLIP_WAIT For I = 1 To UBound(Maps) LoadObject ddsdMaps(I), Maps(I), MapsRect(I), App.Path & "\bmpmaps\m" & I & ".bmp", 600, 800, False, 0, 0 LoadObject ddsdMiniMaps(I), MiniMaps(I), MiniMapsRect(I), App.Path & "\bmpmaps\m" & I & "i.bmp", 198, 198, False, 0, 0 Next For I = 1 To 2 LoadObject ddsdTanks(I), Tanks(I), TanksRect(I), App.Path & "\bmpmaps\tank" & I + 1 & ".bmp", 16, 32, True, vbRed, vbRed Next LoadObject ddsdSButton(1), Sbutton(1), SbuttonRect(1), App.Path & "\bmpmaps\s_n.bmp", 100, 200, True, vbBlack, vbBlack LoadObject ddsdSButton(2), Sbutton(2), SbuttonRect(2), App.Path & "\bmpmaps\s_o.bmp", 100, 200, True, vbBlack, vbBlack LoadObject ddsdArrow(1), Arrow(1), ArrowRect(1), App.Path & "\bmpmaps\ss.bmp", 32, 32, True, vbBlack, vbBlack LoadObject ddsdArrow(2), Arrow(2), ArrowRect(2), App.Path & "\bmpmaps\ma.bmp", 32, 32, True, vbBlack, vbBlack LoadObject ddsdArrow(3), Arrow(3), ArrowRect(3), App.Path & "\bmpmaps\up.bmp", 16, 16, True, vbBlack, vbBlack LoadObject ddsdArrow(4), Arrow(4), ArrowRect(4), App.Path & "\bmpmaps\down.bmp", 16, 16, True, vbBlack, vbBlack BackBuffer.BltFast 0, 0, BG, BGRect, DDBLTFAST_WAIT BackBuffer.SetForeColor RGB(255, 255, 255) BackBuffer.DrawText 320, 250, "Done...", False Primary.Flip Nothing, DDFLIP_WAIT End Sub Now Im getting an automation error on the part: Backbuffer.DrawText 320, 250, "Done...", False How come? Any remedies?