初めて書き込みします。よろしくお願いします。
vb初心者ですが、msflexgridでデータ入力について調べています。
こちらのサンプル（hhttp://www.bcap.co.jp/hanafusa/VBHLP/MSFlexNO1.htm）
で試しております。
Enterで右にアクティブセルを移動したいのですが、
ある列を非表示（colwidth=0）にするとその列で一旦セルが消えてしまします。
colwidth=0でも自然に動作するようにしたいのですが、解決策がなかなかわかりません。

すいませんが、アドバイスをよろしくお願いします。
vb6です。

> colwidth=0でも自然に動作するようにしたいのですが、解決策がなかなかわかりません。
If 文を1行入れれば済む事では。
(下記のようなコードがあったと思うのですが）

   If  次のセルの幅が 0 Then
       'セルを2つ移動
        .Col = .Col + 2
        .SetFocus
   Else
        'セルを１つ移動
        .Col = .Col + 1
   End If

ありがとうございます。おかげさまでひとつ前に進むことができました。
しかし、今度は列幅０が連続した場合のセルの進め方でつまずいています。
「セルの幅が０でないとこまですすめる」みたいなコードはどのように表現すればいいのでしょうか？
よろしくお願いいたします。

> 「セルの幅が０でないとこまですすめる」みたいなコードはどのように表現すればいいのでしょう
か？
少しは自分で考えて、思いついた事を試して見れば、誰にでも解る範囲の事かと思います。

列幅が０の列があらかじめ判っているなら、列の値で判断すればいいのでは？

Select Case .Col
Case 1 '列幅が０の列が１つの場合
   .Col = .Col + 2
Case 5 '列幅が０の列が２つ連続している場合
   .Col = .Col + 3
Case ,Cols - 1
   .Row = .Row + 1
   .Col = 0
Case Else
   .Col = .Col + 1
End Select
.SetFocus

また、ループでセルの幅が０でないとこまですすめるなら、こんな感じ。
Do
   If .Col = .Cols - 1 Then
      .Row = .Row + 1
      .Col = 0
      Exit Do
   End If
   .Col = Col + 1
Loop While .ColWidth(.Col) = 0

花ちゃんさん、LESIAさん、
ありがとうございます。おかげさまでなんとかいけそうです。
お騒がせいたしました。

ご自分で考えて欲しかったのですが、コードを投稿されたので、追記しておきますが
No.3519 で私が説明した処理を MSFlexGrid1_GotFocus イベント内に書き再度MSFlexGrid1_GotFocus
イベント を呼んでやればよいだけです、と言う事で、すでにNo.3519で回答済みとなります。
(その他色々な方法があります)

又、処理方法が思いつかない場合は、自分が手作業でする場合の事を考えて、その手順を
コードに書けばできるかと思います。
（この辺の事を考えるのは初心者もベテランもないかと思います）