Dim p As Panel
p.Initialize("")
p.SetLayoutAnimated(0, 1, 0, 10 , pagBusHome.RootPanel.Width * .50, pagBusHome.RootPanel.Height * .25)
p.LoadLayout("lytMessageSend")
DetailsDialog.Initialize(p)
Dim sf As Object = DetailsDialog.ShowAsync("Enter your message?", "OK", "CANCEL", "", False)
'wait for the result
Wait For (sf) Dialog_Result (Result As Int)
If Result = DetailsDialog.RESULT_POSITIVE Then
Dim strMessage As String = txtMessageSend.Text
strMessage = strMessage.Replace(" ", "%20")
' Do work with message
End If