请大侠帮我看看这段简单的C#怎么转换成VB.NET代码
public A[] GetA()
{
IList alist = new ArrayList();
A a;

for (int i = 0; i < 100; i++)
{
a = new A();
a.A1 = "x ";
a.A2 = 1;
alist.Add(a);
}
A[] aarray = new A[alist.Count];
for (int i = 0; i < aarray.Length; i++)
{
aarray[i] = alist[i] as A;
}
return aarray;
}
' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' ' '
'下面是类A 这个我已经转换成VB的，但是上面的代码我不知道怎么转换！
public class A
{
public A()
{
//
// TODO: 在此处添加构造函数逻辑
//
}

private string a1;
private int a2;

public string A1
{
get { return a1; }
set { a1 = value; }
}

public int A2
{
get { return a2; }
set { a2 = value; }
}


}

[解决办法]
sorry，j写成i了，改正：

Public Function GetA() As A()
Dim alist As IList = New ArrayList
Dim aa As A
For i As Integer = 0 To 99
aa = New A
aa.A1 = "x "
aa.A2 = 1
alist.Add(aa)
Next
Dim aarray() As A
ReDim aarray(alist.Count)

For j As Integer = 0 To aarray.Length - 1
aarray(j) = CType(alist(j), A)
Next
Return aarray
End Function