[Bug 56246] Regarding the color depth of BMP in the SavePicture method: the value is unstable.

[WineHQ Bugzilla]

https://bugs.winehq.org/show_bug.cgi?id=56246

--- Comment #5 from Takahiro Yonemura  ---
Here is the source code of the form in the attached Zip file. The source code
is to load "300DummyBMP.bmp" (300*300 white BMP file) into the picture box,
draw a rectangle and save it as "test.bmp".
The "test.bmp" becomes a blank file (0KB) (Debian 64bit) or a BMP file with
32bit color depth (Ubuntu 64bit).
I would appreciate it if this could be verified.
--------

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   4095
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5790
   LinkTopic       =   "Form1"
   ScaleHeight     =   4095
   ScaleWidth      =   5790
   StartUpPosition =   3  'Windows の既定値
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   3840
      TabIndex        =   1
      Top             =   1680
      Width           =   1455
   End
   Begin VB.PictureBox P1 
      AutoRedraw      =   -1  'True
      Height          =   2895
      Left            =   360
      ScaleHeight     =   2835
      ScaleWidth      =   3075
      TabIndex        =   0
      Top             =   360
      Width           =   3135
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Command1_Click()
P1.Picture = LoadPicture(App.Path + "\300DummyBMP.bmp")
P1.Line (0, 0)-(100, 100), 0, BF
P1.Picture = P1.Image
SavePicture P1.Picture, "test.bmp"
End Sub