Dim gridformat  As String
Dim i As Integer
gridformat = "^Sys.voltage|^R-Phase(V)|^Y-Phase(V)|^B-Phase(V)"
gridformat = gridformat & ";Sys.voltage|L.T|H.T"
grid1.FormatString = gridformat
For i = 0 To 3
    grid1.ColWidth(i) = 964
Next

gridformat = "^Sys.current|^R-Phase(A)|^Y-Phase(A)|^B-Phase(A)"
gridformat = gridformat & ";Sys.current|L.T|H.T"
grid2.FormatString = gridformat
For i = 0 To 3
    grid2.ColWidth(i) = 964
Next

gridformat = "^Flw1(m3/hr)|^Flw2(m3/hr)|^Flw3(m3/hr)|^Flw4(m3/hr)"
grid4.FormatString = gridformat
For i = 0 To 3
    grid4.ColWidth(i) = 964
Next

gridformat = "^Disc. Pr.(Kg)|^S/level(mm)|^RPM|^"
grid3.FormatString = gridformat
For i = 0 To 3
    grid3.ColWidth(i) = 964
Next

gridformat = "^L.T kw|^H.T kw"
grid5.FormatString = gridformat
For i = 0 To 1
    grid5.ColWidth(i) = 967
Next

gridformat = "^Motor eff.|^Pump eff."
grid6.FormatString = gridformat
For i = 0 To 1
    grid6.ColWidth(i) = 967
Next

gridformat = "^Flw1(m3/hr)|^Flw2(m3/hr)|^Flw3(m3/hr)|^Flw4(m3/hr)"
grid7.FormatString = gridformat
For i = 0 To 3
    grid7.ColWidth(i) = 964
Next

gridformat = "^Sys.current|^R-Phase(A)|^Y-Phase(A)|^B-Phase(A)"
gridformat = gridformat & ";Sys.current|L.T|H.T"
grid8.FormatString = gridformat
For i = 0 To 3
    grid8.ColWidth(i) = 964
Next