Would it be possible to tranlate this into a block?
IF NOT - would it be possible to translate to VB.net?

Thank you.


//////////begin/////////

box1=0;
box2=0;

procedure fillDarvas(start,end,swap,top, bottom )
{
   for ( j = start; j < end; j++)
   {
       if( box1[j] = swap)
box1[j]= top ;
else
box1[j]= bottom;

       if(box2[j] = swap)
box2[j]= bottom ;
else
box2[j]= top;
   }
}

BoxArr1 = 0;
BoxArr2 = 0;
StateArray = 0;
DBuy = 0;
DSell = 0;
TopArray = 0;
BotArray = 0;
tick=0;

BoxTop = High[0];
BoxBot = Low[0];
swap=0;
state = 0;
BoxStart = 0;

for (i=0; i<BarCount; i++)
{
if (state==5)
{
  TopArray=BoxTop;
  BotArray=BoxBot;
  if (Low<(BoxBot*(1-tick/100)) || High>(BoxTop*(1+tick/100)))
  {
fillDarvas(BoxStart,i,swap,BoxTop,BoxBot);

  state = 1;
  swap =  !swap;
  BoxTop = High;
  BoxStart = i;
  }
}
else
{
  if (High<BoxTop)
  {
      if ((state<3) || (Low>BoxBot))
      {
   state++;
   }
      else
   {
      state=3;
   }
      if (state==3)
      BoxBot=Low;
  }
  else
  {
      state=1;
      BoxTop=High;
  }
}
StateArray = state;
}

fillDarvas(BoxStart,BarCount,swap,BoxTop,BoxBot);

Plot(C,"",1,64);
//Plot( box1, "" , colorRed, styleLine );
//Plot( box2, "" , colorGreen , styleLine );

Plot( box1, "" , colorRed, 512);
Plot( box2, "" , colorGreen , 512);

///////////end///////////////////