通常表示場合 タイマー設定時
アナログ時計 サンプル集（VB6.0) 　No.535 の実行結果
実用度はあまりないかと思いますが結構、課題とかで質問があるので作って見ました。 円形のフォームを作成し、そこに表示しております。 フォームの移動は、マウスのドラッグでできます。 終了は、フォームをダブルクリックして下さい。 又は、右クリックでのメニューから終了で終了できます。 お遊びで３分間のタイマー機能をつけて音声読み上げでお知らせして、画面でも残り時間が解るように円弧で描画しております。 円弧等の描画については、サンプルNo.536 をご覧下さい。

VBレスキュー(花ちゃん)
Visual Basic6.0　 VB6.0