Private Sub Text1_KeyPress(KeyAscii As Integer)
  Dim nCol As Long
  Dim nRow As Long
 
  If KeyAscii = 13 Then
    ' Enter-Taste
    KeyAscii = 0
 
    With MSFlexGrid1
      ' ... und ab in die nächste Zelle...
      nCol = .Col + 1
      If nCol > .Cols - 1 Then
        ' uppsss... neue Zeile
        nRow = .Row + 1
        If nRow > .Rows - 1 Then
          ' upps... keine weitere Zeile mehr vorhanden
          Exit Sub
        End If
      End If
 
      ' nRow und nCol geben jetzt die neue Zelle an
      ...
    End With
  End If
End Sub

Private Sub Form_Load()
  With Picture1
    .Move -105, -105
    .Width = 30
    .Height = 30
 
    .TabIndex = Text1.TabIndex + 1
  End With
End Sub

Private Sub Picture1_GotFocus()
  Text1_KeyPress 13
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de