PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'SettheFolderBrowserdialogpropertiesWith(FolderBrowserDialog1).Description="Selectabackupfolder".RootFolder=Environment.SpecialFolder.MyComputer