Crate backup (File Copy)

Jeg har hidtil brugt at script fra Autohotkey til at lave backup af nogen instillinger og filer fra et program til en USB pen, men nu bliver jeg nødt til at have lavet det om til noget visual basic med en windows form.

Jeg kan godt finde ud af at lave windows formen i design mode (Bruger Visual Studio 2005), men at få den til at åbne en folder selection (ikke file selection) og lave resten i code window, det er jeg ikke god nok til. Det script jeg bruger nu ser således ud:



FileSelectFolder, SourceFolder, , 3, Select the 963 folder to copy
if SourceFolder =
    return

FileSelectFolder, TargetFolder, , 3, Select the device and folder to make the backup.
if TargetFolder =
    return

MsgBox, 4, , A backup of the 963 "%SourceFolder%" will be made to "%TargetFolder%".  Continue?
IfMsgBox, No
    return
SplitPath, SourceFolder, SourceFolderName

FileCopyDir, %SourceFolder%\Analogue, %TargetFolder%\Analogue
FileCopyDir, %SourceFolder%\Animation, %TargetFolder%\Animation
FileCopyDir, %SourceFolder%\Backdrops, %TargetFolder%\Backdrops
FileCopyDir, %SourceFolder%\bmp, %TargetFolder%\bmp
FileCopyDir, %SourceFolder%\Database, %TargetFolder%\Database
FileCopyDir, %SourceFolder%\Documentation, %TargetFolder%\Documentation
FileCopyDir, %SourceFolder%\GIF, %TargetFolder%\GIF
FileCopyDir, %SourceFolder%\HTML, %TargetFolder%\HTML
FileCopyDir, %SourceFolder%\other, %TargetFolder%\other
FileCopyDir, %SourceFolder%\Pages, %TargetFolder%\Pages
FileCopyDir, %SourceFolder%\Template, %TargetFolder%\Template
FileCopyDir, %SourceFolder%\Txt, %TargetFolder%\Txt
FileCopyDir, %SourceFolder%\Usr, %TargetFolder%\Usr
FileCopyDir, %SourceFolder%\Wav, %TargetFolder%\Wav
FileCopy, %SourceFolder%\s2.ini, %TargetFolder%\s2.ini
FileCopy, %SourceFolder%\Tcommsrv.ini, %TargetFolder%\Tcommsrv.ini


if ErrorLevel
    MsgBox The folder could not be copied, perhaps because a folder of that name already exists in "%TargetFolder%".


MsgBox Done copy %SourceFolder% to %TargetFolder%

return


Som ses, så er det ret simpelt, men hvordan får jeg det lavet om til Visual Basic?