Private Sub FpSpread1_LeftChange(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeftChangeEventArgs) Handles FpSpread1.LeftChange
If e.ColumnViewportIndex = 1 And e.OldLeft = 0 Then
FpSpread1.ActiveSheet.Columns(e.NewLeft).BackColor = Color.Yellow
End If
End Sub