dialog_height = 0.5 * buttonpanel.Height
dialog_width = 0.5 * buttonpanel.Width
Dim dp As dialogpanel
dp.Initialize(Me,"dp")
dp.Create_Layout(dialog_width,dialog_height)
dp.SetContent("Test Title","Test Content")
dialog.Initialize(buttonpanel)
dialog.ShowCustom(dp.Base,"","","")
Wait For Complete(result As Int)
Log("Result = "&result)