Public Function GET_CMD_CARD_PHOTO() As CMD_PAIR()
Dim cmds As CMD_PAIR() = New CMD_PAIR(20) {}
For i As Integer = 0 To 20
Dim xwd As Integer
Dim xof As Integer = i * 254 + 379
If i = 20 Then
xwd = 38
Else
xwd = 254
End If
Dim sp2 As Integer = (xof >> 8) And &Hff
Dim sp3 As Integer = xof And &Hff
Dim sp6 As Integer = xwd And &Hff
Dim spx As Integer = xwd And &Hff
cmds(i).CMD1 = New Byte() {&H80, &Hb0, CByte(sp2), CByte(sp3), &H2, &H0, _
CByte(sp6)}
cmds(i).CMD2 = New Byte() {&H0, &Hc0, &H0, &H0, CByte(spx)}
Next
Return cmds
End Function