Private Sub Command1_Click() 'ReDim Ima1(1 To 3680, 1 To 2400) As RGBNIR 'ReDim Ima2(1 To 2400, 1 To 3680) As RGBNIR 'ReDim Ima3(1 To 2400, 1 To 3680) As Byte ReDim PanIma1(1 To 11500, 1 To 7500) As Integer ReDim PanIma2(1 To 7500, 1 To 11500) As Integer ReDim PanIma3(1 To 7500, 1 To 11500) As Byte 'Open "c:\temp\names.txt" For Input As 10 Open "c:\temp\names_pan.txt" For Input As 10 Dim FileName As String For j = 1 To 432 Input #10, FileName Open "N:\Hyde_BackUp\Aerial_Images\2012\Images\" & FileName For Binary As 1 ' Get #1, , Ima1 Get #1, , PanIma1 Close (1) Open "C:\temp\" & FileName For Binary As 1 Nrows = 7500 Ncols = 11500 For ix = 1 To Ncols For jx = 1 To Nrows 'Ima2(jx, 3681 - ix).r = Ima1(ix, jx).r 'Ima2(jx, 3681 - ix).G = Ima1(ix, jx).G 'Ima2(jx, 3681 - ix).B = Ima1(ix, jx).B 'Ima2(jx, 3681 - ix).NIR = Ima1(ix, jx).NIR 'Ima3(jx, 3681 - ix) = Ima1(ix, jx).NIR / 32 PanIma2(jx, (Ncols + 1) - ix) = PanIma1(ix, jx) PanIma3(jx, (Ncols + 1) - ix) = PanIma1(ix, jx) / 128 Next jx If ix Mod 10 = 0 Then Form1.Caption = ix & " " & FileName DoEvents Next ix Put #1, , PanIma2 Open "C:\temp\test_8_" & FileName For Binary As 2 'Put #2, , Ima3 Put #2, , PanIma3 Close (1) Close (2) Next j End Sub