PowerPointで時計表示

サンプルです。 先ほどの発言に間違いがあります。テキストボックスを透過させようとしましたが、WIN2000限定仕様のようです。 処理はMain関数で実行するだけです。 カッコ悪いですが、現在時間を表示します。 Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CreateWindowEx Lib "user32" Alias "Create