C# to VC

Hi,

Can anyone assist with changing below C# into Visual Cobol?

 subItems = new ListViewItem.ListViewSubItem[]
 {new ListViewItem.ListViewSubItem(item, "Directory"),
new ListViewItem.ListViewSubItem(item, dir.LastAccessTime.ToShortDateString())};

This is in the code block:-

 

*> TreeNode newSelected = e.Node;
declare newSelected as type System.Windows.Forms.TreeNode = e::Node

*>listView1.Items.Clear();
invoke listView1::Items::Clear

*>DirectoryInfo nodeDirInfo = (DirectoryInfo)newSelected.Tag;
declare nodeDirInfo as type System.IO.DirectoryInfo = newSelected::Tag as type System.IO.DirectoryInfo

*>ListViewItem.ListViewSubItem[] subItems;
declare subItems as type System.Windows.Forms.ListViewItem ListViewSubItem[]

*>ListViewItem item = null;
declare item as type System.Windows.Forms.ListViewItem = null

* foreach (DirectoryInfo dir in nodeDirInfo.GetDirectories())
* {
* item = new ListViewItem(dir.Name, 0);
* subItems = new ListViewItem.ListViewSubItem[]
* {new ListViewItem.ListViewSubItem(item, "Directory"),
* new ListViewItem.ListViewSubItem(item, dir.LastAccessTime.ToShortDateString())};
*
* item.SubItems.AddRange(subItems);
* listView1.Items.Add(item);
* }

perform varying dir as type System.IO.DirectoryInfo through nodeDirInfo::GetDirectories
set item = new type System.Windows.Forms.ListViewItem(dir::Name, 0)

* subItems = new ListViewItem.ListViewSubItem[]
* {new ListViewItem.ListViewSubItem(item, "Directory"),
* new ListViewItem.ListViewSubItem(item, dir.LastAccessTime.ToShortDateString())};
* set subItems = type System.Windows.Forms.ListViewItem(
* new type System.Windows.Forms.ListViewItem ListViewSubItem(item, "Directory"),
* new type System.Windows.Forms.ListViewItem ListViewSubItem(item, dir::LastAccessTime::ToShortDateString)
)

try
invoke item::SubItems::AddRange(subItems)
catch
continue
end-try

invoke listView1::Items::Add(item)
end-perform