Private Sub UltraGrid1_DoubleClickRow( _ ByVal sender As System.Object, _ ByVal e As DoubleClickRowEventArgs) _ Handles UltraGrid1.DoubleClickRow Dim theCust As Customer theCust = DirectCast(e.Row.ListObject, Customer) Dim d As New CustDetailsForm(theCust) d.ShowDialog() End Sub