あけましておめでとうございます。
昨年は色々教えて頂き有り難うございました。
また今年もよろしくお願いいたします。
早速教えて頂きたいのですが、
Command Button は Appearanceを0-フラットにしても、
画面は1-3D　のままで変わらないのですが、
Command Button に対しては無効なのでしょうか、
それともプロパティーの設定が間違っているのですか？
ご指導のほどよろしくお願いいたします。

> Command Button は Appearanceを0-フラットにしても、
> 画面は1-3D　のままで変わらないのですが、
> Command Button に対しては無効なのでしょうか、

そのようですね。 他にも Combo Box 等も同様ですね
(詳しい理由は、知りません。MSDN 辺りに書いてあるかもしれませんが？)
どのような フラットスタイルを期待されているか知りませんが、Label 等との
区別がつきにくかったり、押された事が解りにくかったりと、フラットにする
メリットが無い様に思うのですが、フラットにしたければ、Label や Picture Box 等を
使用すればいいのではないでしょうか？

# .NET 以降ではサポートされてはいますが...。

> > Command Button は Appearanceを0-フラットにしても、
> > 画面は1-3D　のままで変わらないのですが、
> > Command Button に対しては無効なのでしょうか、
>
> そのようですね。 他にも Combo Box 等も同様ですね
> (詳しい理由は、知りません。MSDN 辺りに書いてあるかもしれませんが？)
> どのような フラットスタイルを期待されているか知りませんが、Label 等との
> 区別がつきにくかったり、押された事が解りにくかったりと、フラットにする
> メリットが無い様に思うのですが、フラットにしたければ、Label や Picture Box 等を
> 使用すればいいのではないでしょうか？
>
> # .NET 以降ではサポートされてはいますが...。

花ちゃんさんご回答有り難うございました。
私の　したかった事は通常フラットで
マウスポインターが上に行くと3Ｄになる様にしたかったのです。
ご回答有り難うございました。

> 私の　したかった事は通常フラットで
> マウスポインターが上に行くと3Ｄになる様にしたかったのです。

だったら下記でもいいのでは。

Private Sub Form_Load()
   Picture1.Appearance = 0
   Picture1.ZOrder vbBringToFront
   Picture1.Move 1000, 1000, 1500, 500
   Command1.Move 1000, 1000, 1500, 500
End Sub
Private Sub Form_MouseMove(Button As Integer, _
                           Shift As Integer, X As Single, Y As Single)
   Picture1.Visible = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, _
                              Shift As Integer, X As Single, Y As Single)
   Picture1.Visible = False
End Sub

> > 私の　したかった事は通常フラットで
> > マウスポインターが上に行くと3Ｄになる様にしたかったのです。
>
> だったら下記でもいいのでは。
>
> Private Sub Form_Load()
>    Picture1.Appearance = 0
>    Picture1.ZOrder vbBringToFront
>    Picture1.Move 1000, 1000, 1500, 500
>    Command1.Move 1000, 1000, 1500, 500
> End Sub
> Private Sub Form_MouseMove(Button As Integer, _
>                            Shift As Integer, X As Single, Y As Single)
>    Picture1.Visible = True
> End Sub
> Private Sub Picture1_MouseMove(Button As Integer, _
>                               Shift As Integer, X As Single, Y As Single)
>    Picture1.Visible = False
> End Sub

有難うございます。
使い方を知らない　関数（？）　ステートメント（？）があるので、
ヘルプで良く調べて勉強し理解してみます。
本当に有難う御座いました。