My First Library - Dialogs

Sub ButtonFileDialog_Click
    Dim FD As FileDialog
    Dim R As Int
  
    FD.Initialize(Activity,Me,"FD")
    FD.Path=File.DirRootExternal
    FD.Show("Select a file" ,"Si","Cancel","No")
        'With DoEvents
    r=FD.DoEventWaitResponse
  
    ToastResponse(R,FD.FileName)
End Sub

Sub ButtonFileDialog2_Click
    Dim FD As FileDialog
  
    FD.Initialize(Activity,Me,"FD")
    FD.AddFilter("s3db","Sql Lite")
    FD.Show("Select a file" ,"Si","Cancel","No")
        ' Without DoEvents
End Sub

Sub FD_ClickResponse(Response As Int, FileName As String)
    'Event generate from FileDialogs
End Sub

Sub ButtonMsgBox2_Click
    Dim B As MessageBox

    B.Initialize(Activity,Me,"MsgBox")
    B.NewMsgBox("What do you want?","Ask","Si","cancel","No")
    B.TimerDIalog(5000)  'If you want Timer for 5 sec
    ' R=B.DoEventWaitResponse 'if you like old dear DoEvents, but not necessary
End Sub