merge excel cells in vb.net

   1:  Dim objRango As Excel.Range = objHojaExcel.Range("B1:B2")

   2:  objRango.MergeCells = True

   3:  objRango.HorizontalAlignment = Excel.Constants.xlCenter

   4:  objRango.VerticalAlignment = Excel.Constants.xlCenter

   5:   

   6:  objRango = objHojaExcel.Range("A7:D7")

   7:  objRango.Merge()

   8:  objRango.HorizontalAlignment = Excel.Constants.xlCenter

   9:  objRango.WrapText = True

  10:  objRango.ShrinkToFit = True

Dim objRango As Excel.Range = objHojaExcel.Range("B1:B2")

objRango.MergeCells = True

objRango.HorizontalAlignment = Excel.Constants.xlCenter

objRango.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter

dynamic variables

   1:  Dim i As Integer

   2:  Dim field As System.Reflection.FieldInfo

   3:  Dim lblruc As Label

   4:  For i = 1 To psComReg.Length()

   5:      field = Me.GetType().GetField("lbl_5_" + i.ToString(), System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)

   6:              lblruc = DirectCast(field.GetValue(Me), Label)

   7:              lblruc.Text = psComReg(i - 1)

   8:          Next