让窗体只显示商标程序,设置窗体透明(vb6.0源代码编写)Dim Bitmap Me.AutoRedraw = True Bitmap = CreateCompatibleBitmap(Me.hdc, 0, 0) SelectObject Me.hdc, Bitmap '设置窗体透明 Timer1.Enabled = True