Sub main
Begin Dialog joe 60,60,140,100,"Acesso a Área Restrita"
OKButton 50,50,40,12
CancelButton 50,70,40,12
Text 10,10,120,12, "Type a Password",.Pin1
TextBox 50,30,40,12,.Pin,32
End Dialog
Hello, I also looked for it everywhere, after a long time searching, I found.
Exemple:
Dim Dlg1 As joe
Button = Dialog (Dlg1)
If Button = 0 Then Exit Sub
If Dlg1.Pin = "123" Then
DoOEMButton (5)
MsgBox "pass ok"
Else
MsgBox "pass error"
End If
End Sub
Good luck.