Вы можете найти папку запуска с помощью функции Environment.GetSpecialFolder, а затем использовать File.Copy для копирования файла.
Public Sub CopyIconFromStartup(iconName as String, target As String)
Dim path as String = Environment.GetSpecialFolder(SpecialFolder.Startup)
path = IO.Path.Combine(path, iconName)
File.Copy(path, target)
End Sub