お世話になります。

色々とイベントを試してみたのですが、うまくいかず
ご質問させてください。

MSHFlexGridで、列幅を境界線でドラッグすると
変えられるようにプロパティを変えました。

そして、その境界線をドラッグして列幅を変えた
時にイベントを発生させたいのですが、どうしたら良いでしょう？
また、その幅を変えた列番号（Col?）を取得したいのです。

できますでしょうか？

MSHFlexGrid も MSFlexGrid も基本的なところは同じです。
質問する前にここの、MSFlexGrid 関係や掲示板のログを検索して見て下さい。
MSFlexGrid 関係やExcel等の質問は大抵の出ていますよ。（よほど変わった事か出来ない事
でない限り）

MSHFlexGrid 列幅　で掲示板のログを検索すれば見つかりますよ。
つい最近も同じ回答を No.7784 でしています。

　Starfish 03/28-03:00 No.3283 がそれでは。

花ちゃん様、ご返答有難うございます。
> 　Starfish 03/28-03:00 No.3283 がそれでは。
を探して、やってみました。

参考にはなったのですが、ダブルクリックでイベントを
発生させるのではなくて、あくまでもグリッドの最上部の
固定行の間でマウスが矢印になっている際にドラッグを
して、列幅を変更した際にイベントを発生させたいのです。
（ダブルクリックイベントは他の処理で使用している為）

このような事は出来ないのでしょうか？
申し訳ありませんが、アドバイスのほう頂けないでしょうか？
よろしくお願い致します。

> 参考にはなったのですが、ダブルクリックでイベントを
> 発生させるのではなくて、あくまでもグリッドの最上部の
> 固定行の間でマウスが矢印になっている際にドラッグを
> して、列幅を変更した際にイベントを発生させたいのです。
> （ダブルクリックイベントは他の処理で使用している為）

スマートでは無いですが下記見たいなのはどうですか？
Form を表示後にCommand1_Clickでタイマーを起動させていますが。


Option Explicit

Dim i As Integer
Dim col_width(10) As Long

Private Sub Command1_Click()

   Timer1.Interval = 100

End Sub

Private Sub Form_Load()

  With MSHFlexGrid1
    .Cols = 8
    .Rows = 10
    For i = 0 To 7
        col_width(i) = .ColWidth(i)
    Next i
  End With

End Sub

Private Sub Timer1_Timer()

  With MSHFlexGrid1
    For i = 0 To 7
        If col_width(i) <> .ColWidth(i) Then
                MsgBox (i & " が変換")
                col_width(i) = .ColWidth(i)
        End If
    Next i
  End With

End Sub

> 固定行の間でマウスが矢印になっている際にドラッグを
> して、列幅を変更した際にイベントを発生させたいのです。
> （ダブルクリックイベントは他の処理で使用している為）

あ、！　失礼しました。勘違いしていました。

こちらも過去のログにありますよ。

MSFlexGrid関係の過去のログ一覧より（行・列関係及びセル等の編集関係）　

No.3205  No.3208  No.3209  No.3218

皆様方、色々と有難うございました。
工夫の末、解決いたしました。

どうも有難うございました。