Call Grid1_CellClick(1, 1, 2, 0)

Private Sub Grid1_CellClick(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  Button As Integer, ByVal Shift As Integer)
    Dim lObjNo  As Long
    Dim iLfdO   As Integer
 
    lObjNo = Grid1.SelectedItem.CellText("ObjNo")
    iLfdO = Grid1.SelectedItem.CellText("Lfd")
    GetGrid2 lObjNo, iLfdO  <= Aufrud des 2, Grid
    GetGrid3 lObjNo, iLfdO  <= Aufruf des 3. Gtids.
End Sub