Sub Button1_Click
Dim cd As CustomDialog
Dim pnl As Panel
pnl.Initialize("pnl")
pnl.Color = Colors.White
'====
Dim Panel6 As Panel
Panel6.Initialize("Panel6")
Panel6.Color = Colors.Yellow
'Activity.AddView(Panel6,50dip,50dip,150dip,150dip)
cd.AddView(Panel6,50dip,5dip,150dip,150dip)
'=====
Canvas1.Initialize(Panel6)
SD.Initialize
SD.Canvas = Canvas1
SD.Panel = Panel6
SD.SignatureColor = Colors.Black
SD.SignatureWidth = 5dip 'Stroke width
ret = cd.Show("B4A Custom Dialog", "Yes", "No", "", Bmp)
End Sub