Simple transparent button control For VB6

Private Sub Form_Load()
Me.Picture = LoadPicture(App.Path & "\bg.jpg")
'MyButton1(0).FilePath = "bt1a.png"
'MyButton1(0).FileClick = "bt1b.png"
End Sub

Private Sub Form_Activate()

If Me.Tag = "" Then
Me.Tag = "a"

Picture1.AutoRedraw = True
'Picture1.Picture = LoadPicture(App.Path & "\bg.jpg")
TransparentWithHdc Picture1.hwnd, Picture1.hDC

MyButton1(0).CutBgImg
MyButton1(0).ShowImg

MyButton1(2).CutBgImg
MyButton1(2).ShowImg

End If
End Sub

Attached Images

 

Attached Files

• transparent button control.zip (343.5 KB)
• transparent button control.zip (36.1 KB)