Bosses, please help me translate them part of the 2048 mobile grid really is not understand urgent need
Private Sub MoveBox (ByVal Fx As Integer)
Dim B As an Integer, N As an Integer, S As Integer
Dim R As an Integer, C As an Integer, K As Integer
Dim bMove As Boolean




If Fx & lt; 3 Then 'move around
If Fx=1 Then
B=1: N=3: S=1
The Else
B=2: N=0: S=1
End the If


For R=0 To 3
K=IIf (Fx=1, 0, 3)
For C=B To N Step S
If BoxValue (R, C) & gt; 0 Then
If (BoxValue (R, C)=BoxValue (R, K)) Then
DrawBox BoxValue (R, C) * 2, R, K
DrawBox 0, R, C
Score=+ BoxValue Score (R, K)
If BoxValue (R, K)=2048 Then
MsgBox "wow! Amazing! Admire you ~ ",