Public Sub DrawLCD(ByVal lcdscreen As Bitmap)
        ' Create a new bitmap.
        Dim bmp As New Bitmap(lcdscreen)
        Dim rect As New Rectangle(0, 0, bmp.Width, bmp.Height)
        Dim bmpData As System.Drawing.Imaging.BitmapData = bmp.LockBits(rect, _
            Drawing.Imaging.ImageLockMode.ReadWrite, _
            Drawing.Imaging.PixelFormat.Format24bppRgb)
        Dim ptr As IntPtr = bmpData.Scan0
        Dim bytes As Integer = bmp.Width * bmp.Height * 3
        Dim rgbValues(bytes - 1) As Byte
        Dim pix(lcdscreen.Width * lcdscreen.Height) As Byte
        Dim i As Integer = 0
 
        System.Runtime.InteropServices.Marshal.Copy(ptr, rgbValues, 0, bytes)
        For counter As Integer = 0 To rgbValues.Length - 1 Step 3
            LCDBitmap.pixels(i) = rgbValues(counter)
            i = i + 1
        Next
        bmp.UnlockBits(bmpData)
    End Sub
 
    ''' <summary>
    ''' Passes the LCDBitmap object to the LCD Screen.
    ''' </summary>
    Public Sub UpdateLCD()
        LgLcd.lgLcdUpdateBitmap(openContext.device, LCDBitmap, _
          LgLcd.LGLCD_PRIORITY_NORMAL)
    End Sub