Thanks Scott,
Solved
I found this example in Cypress language reference and works OK.
Only attention, the picture must be .BMP.
Sub DrawBitmapSample
Dim MyList()
Begin Dialog BitmapDlg 60, 60, 290, 220, "Enable bitmap sample", .DlgFunc
ListBox 10, 10, 80, 180, MyList(), .List1, 2
Picture 100, 10, 180, 180, "Forest.bmp", 0, .Picture1
CancelButton 42, 198, 40, 12
OKButton 90, 198, 40, 12
End Dialog
Dim frame As BitmapDlg
' Show the bitmap dialog
Dialog frame
End Sub
German