MSFlexGridでEnterで改行させていますが、Shift+Enterで上に改行させたいのですが
出来ません。ちなみに改行は現在以下のようにしています。

    With MSFlexGrid1
        Select Case KeyCode
            Case vbKeyReturn
                If .Row < .Rows - 1 Then .Row = .Row + 1
                If .Row >= 10 Then
                    .TopRow = .TopRow + 1
                End If
                .SetFocus
        End Select
　　End With

vbKeyShiftとvbKeyReturn をandや+でつないだりいろいろ試しているのですが、なかなか
上手くいきません。

解決法があればどうぞ宜しくお願いします。

いろいろ探したのですが
ここのサンプルの　ＡＰＩを使ったフォーカス移動　で解決することが出来ました。
管理人様有難う御座いました。