Sub MesajGonder
Dim pnlBody2 As Panel
pnlBody2.Initialize("")
'set its size
pnlBody2.SetLayoutAnimated(0, 1, 0, 0, Pg.RootPanel.Width - 50dip, 300dip)
'load the layout
pnlBody2.LoadLayout("mesajgonder")
konu.Color = Colors.ARGB(160, 0, 0, 0)
konu.HintText = "Lütfen Konuyu Giriniz"
detay.Color = Colors.ARGB(160, 0, 0, 0)
detay.HintText = "Lütfen Açıklama Giriniz."
DetailsDialog.Initialize(pnlBody2)
Dim sf As Object = DetailsDialog.ShowAsync("Test", "Ok", "Cancel", "", False)
'disable the OK button.
DetailsDialog.GetButton(DetailsDialog.RESULT_POSITIVE).Enabled = False
Wait For (sf) Dialog_Result (Result As Int)
If Result = DetailsDialog.RESULT_POSITIVE Then
Log("Ok")
End If
End Sub