WndProc

 :  WndProc

case WM_INITDIALOG

ShowWindow GetDlgItem(hDlg,IDOK),SW_HIDE

hBitmap1=CreateWindowEx(WS_EX_TRANSPARENT,"Button","Login", WS_VISIBLE Or WS_CHILD Or BS_BITMAP,60, 150,100, 25,hDlg,(HMENU)IDC_BUTTON2, NULL, NULL

(

(hdc = GetDC(hDlg

  (hMemDC = CreateCompatibleDC(hdc

(hBitmap = CreateCompatibleBitmap(hdc,120,25

  SelectObject hMemDC,hBitmap 

(SetDCBrushColor hMemDC,RGB(212,208,20

Dim r As RECT

r.left = 0

  r.right = 120

  r.top = 0

  r.bottom = 25

  (FillRect(hMemDC,r,GetStockObject(DC_BRUSH

  DeleteDC hMemDC

  ReleaseDC hDlg,hdc