Public Sub ShowFindDialog() 

public void ShowFindDialog()

private void arv_Load(object sender, System.EventArgs e)
{
    rptDD rpt = new rptDD();
    rpt.Run();
    arv.Document = rpt.Document;
    arv.ShowFindDialog();
}

Private Sub arv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arv.Load
    Dim rpt As New rptDD
    rpt.Run()
    arv.Document = rpt.Document
    arv.ShowFindDialog()
End Sub