お世話様です。
現在ピクチャーボックス内で文字を回転描画させる様に奮闘中です。
お手本としまして花ちゃん様の「各種フォントを任意の角度で表示する」を参考にコーディングしています。
確かに文字は回転するようになったのですが、実行後、再度「実行」ボタンを押すとボタンのキャプション
（文字サイズ）が変更されます。
変更されてしまったらプロジェクトを再起動しないと元の大きさに戻りません。
これを回避するにはどのようにすればよいのか、お教え願えませんか？？

【開発環境】
VB:VB6 SP6
OS:Windows2000 SP4

以上、宜しくお願いいたします。

申し訳ありませんでした。
サンプルを修正した後、又入れ替わっていたようです。

現在は修正済みです。

私も試したことがあるんですが、サンプルコード（各種フォントを任意の角度で表示する）
hhttp://www.bcap.co.jp/hanafusa/VBHLP/FontPreview.htm
をそのまま実行して「実行」ボタンを２回目押したとき、「実行」と表示されている
Command1のキャプションが一回り大きいフォントサイズになりました。

Command1.Fontプロパティを触っていないのに不思議だなと思っていました。
環境はWinXP SP2とVB6 SP6です。

その時は特に気にしていなかったのですが。
そこで、最後の
    DeleteObject lngObjhDC2
というステートメントをコメントアウトしたら上記現象はなくなりました。
元々のフォントオブジェクトまで削除していたのがいけなかったんでしょうか？
それがCommandボタンまで影響するとは考えにくいですが。

今、再確認したところおっしゃるように、以前修正した時に、DeleteObject lngObjhDC2 の部分を
追加した後に、再度修正したのですが、再度入れ替わっておりました。
2004/09/01 以前のコードは問題ないようで、それ以降のコードが入れ替わったようです。

ふみふみ さん、のびた さんにはご迷惑をお掛けしました。申し訳ございません。
現在は修正済みです。

ふみふみです。早速のご回答感謝です。

> 現在は修正済みです。
先ほどＳＡＭＰＬＥを使用させて頂きましたが、現象は出ませんでした。
花ちゃんさん、のびたさん、お忙しい所有り難うございました。
御礼まで・・・