'===========================================================================
'    ファイル名    : basTransparent.bas
'    ファイル説明  : 簡単透明フォーム化
'    作成者        : Uz
'       E-Mail     : uz@violet.plala.or.jp
'       HomePage   : http://www1.plala.or.jp
'    作成日        : 1998/02/28 (Sat)
'    修正日        : 1998/02/28 (Sat)
'    備考          : なし
'===========================================================================
Option Explicit

' -- API 関数宣言
Declare Function PaintDesktop Lib "user32" (ByVal hdc As Long) As Long

'===========================================================================
'    ファイル名    : frmTransparent.frm
'    ファイル説明  : 簡単透明フォーム
'    作成者        : Uz
'       E-Mail     : uz@violet.plala.or.jp
'       HomePage   : http://www1.plala.or.jp
'    作成日        : 1998/02/28 (Sat)
'    修正日        : 1998/02/28 (Sat)
'    備考          : なし
'===========================================================================
Option Explicit

Private Sub Form_Paint()
    Call PaintDesktop(Me.hdc)
End Sub