diff --git a/if1632/gdi.spec b/if1632/gdi.spec
index 14fdda16e4b..9fea5516465 100644
--- a/if1632/gdi.spec
+++ b/if1632/gdi.spec
@@ -267,8 +267,8 @@ file	gdi.exe
 403 stub GDIINIT2
 404 stub GetTTGlyphIndexMap
 405 stub FINALGDIINIT
-407 stub CREATEUSERBITMAP
-409 stub CREATEUSERDISCARDABLEBITMAP
+407 pascal16 CreateUserBitmap(word word word word ptr) CreateUserBitmap16
+409 pascal16 CreateUserDiscardableBitmap(word word word) CreateUserDiscardableBitmap16
 410 pascal16 IsValidMetaFile (word) IsValidMetaFile
 411 pascal16 GetCurLogFont(word) GetCurLogFont
 412 pascal16 IsDCCurrentPalette(word) IsDCCurrentPalette
diff --git a/objects/bitmap.c b/objects/bitmap.c
index 2da43745e1b..f808da2ef3e 100644
--- a/objects/bitmap.c
+++ b/objects/bitmap.c
@@ -119,6 +119,26 @@ INT32 BITMAP_GetBitsWidth( int bmWidth, int bpp )
     return -1;
 }
 
+/***********************************************************************
+ *           CreateUserBitmap16    (GDI.407)
+ */
+HBITMAP16 WINAPI CreateUserBitmap16( INT16 width, INT16 height, UINT16 planes,
+                                     UINT16 bpp, LPCVOID bits )
+{
+    return CreateBitmap16( width, height, planes, bpp, bits );
+}
+
+/***********************************************************************
+ *           CreateUserDiscardableBitmap16    (GDI.409)
+ */
+HBITMAP16 WINAPI CreateUserDiscardableBitmap16( WORD dummy, 
+                                                INT16 width, INT16 height )
+{
+    return CreateUserBitmap16( width, height, 1, screenDepth, NULL );
+}
+
+
+
 /***********************************************************************
  *           CreateBitmap16    (GDI.48)
  */