Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim replica As NotesDatabase
Set db = session.CurrentDatabase
askme = workspace.Prompt (PROMPT_YESNO,"Replication", "This will create a new replica of your mail file. Do you want to continue?")
If askme = 1 Then
dbname = db.FileName
dbname ="mail\"+dbname
Set replica = db.CreateReplica("", dbname )
Call workspace.OpenDatabase("",dbname)
End If
End Sub