Dim names() As Array = Array As String("one", "two, ...
For i = 0 To names.Length - 1
PinsImages( i + 1, 0, 0) = LoadBitmap(File.DirAssets, names(i) & "pin.png")
PinsImages( i + 1, 0, 1) = LoadBitmap(File.DirAssets, names(i) & "pinselected.png")
...
Next