Sub Main
	Begin Dialog UserDialog 200,119,"Caption text",.DialogFunc ' %GRID:10,7,1,1
		Text 10,10,180,15,"Please input text"
		TextBox 10,40,180,15,.text
		CancelButton 110,84,60,21
	End Dialog
    Dim dlg As UserDialog
    Debug.Print Dialog(dlg)
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
        DlgFocus "Text"
End Function