Question

表題の通り、ultragridの編集を行っています。

コードは以下のようになっているのですが、activateによって
cellに入力を行えるようにするためにはどうしたらいいでしょうか。
ご教授お願いします。

 Private Sub コード行削除_Click(sender As Object, e As EventArgs) Handles コード行削除.Click

　　　Dim ActiveRowIndex As Integer

        If UltraGrid1.Rows.Count = 0 Then
            MsgBox("コードを選んで検索ボタンを押下してください")
            Exit Sub
        Else

        End If

        ActiveRowIndex = UltraGrid1.ActiveRow.Index

        UltraGrid1.Rows(ActiveRowIndex).Delete()

        UltraGrid1.Rows(ActiveRowIndex).Cells(0).Activate()

    End Sub