Imports Infragistics.Win.UltraWinGrid ... Private Sub ChangingtheActiveRow_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim objRow As UltraGridRow objRow = Me.UltraGrid1.Rows(5) Me.UltraGrid1.ActiveRow = objRow Me.UltraGrid1.DisplayLayout.Override.ActiveRowAppearance.BackColor = Color.Aqua End Sub