Simulare click su cella di un Gridview

[sotema]

Codice: gambas [Seleziona]

Public Sub Button4_Click()
  Dim a, b As Integer  
  
 For a = 0 To GridView1.Rows.count - 1  
   For b = 0 To GridView1.Columns.count - 1  
         If GridView1[a, b].text = txtDaFile Then    
           GridView1.MoveTo(a, b)   
         Endif  
   Next  
 Next  
End

Public Sub GridView1_Change()
  GridView1.Current.Background = Color.Gray  
  listView1.Remove(GridView1.Current.Text)  
End