#Compile Exe
#Dim All
 
'------------------------------------------------------------------------------
' --
'   ** Includes **
'------------------------------------------------------------------------------
' --
#PBForms Begin Includes 
#If Not %Def(%WINAPI)
    #Include "WIN32API.INC"
#EndIf
#PBForms End Includes
'------------------------------------------------------------------------------
' --
 
'------------------------------------------------------------------------------
' --
'   ** Constants **
'------------------------------------------------------------------------------
' --
#PBForms Begin Constants 
%IDD_DIALOG1    = 101
%IDC_BUTTON1    = 1001
#PBForms End Constants
'------------------------------------------------------------------------------
' --
 
'------------------------------------------------------------------------------
' --
'   ** Declarations **
'------------------------------------------------------------------------------
' --
Declare CallBack Function ShowDIALOG1Proc()
Declare Function ShowDIALOG1(ByVal hParent As Dword) As Long
 
'------------------------------------------------------------------------------
' --
 
'------------------------------------------------------------------------------
' --
Function PbMain()
    ShowDIALOG1 %HWND_DESKTOP
End Function
'------------------------------------------------------------------------------
' --
 
'------------------------------------------------------------------------------
' --
'   ** CallBacks **
'------------------------------------------------------------------------------
' --
CallBack Function ShowDIALOG1Proc()
 
    Select Case CbMsg
        Case %WM_COMMAND
            Select Case CbCtl
                Case %IDC_BUTTON1
                    If CbCtlMsg = %BN_CLICKED Or CbCtlMsg = 1 Then
                        MsgBox "%IDC_BUTTON1=" + Format$(%IDC_BUTTON1), _
                            %MB_SYSTEMMODAL
                    End If
 
            End Select
    End Select
 
End Function
'------------------------------------------------------------------------------
' --
 
'------------------------------------------------------------------------------
' --
'   ** Dialogs **
'------------------------------------------------------------------------------
' --
Function ShowDIALOG1(ByVal hParent As Dword) As Long
    Local lRslt As Long
    Local hDlg As Dword
 
    Dialog New hParent, "Dialog1", 71, 150, 195, 106, To hDlg
    Control Add Button, hDlg, %IDC_BUTTON1, "Button1", 60, 60, 75, 13
    Dialog Show Modal hDlg, Call ShowDIALOG1Proc To lRslt
 
    Function = lRslt
End Function