VB_TransparentControl/Form1.vb at master · castorix/VB_TransparentControl · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim hBitmap As IntPtr = TransparentControl1.LoadImage("Hulk.png", System.Drawing.Color.FromArgb(0))
        TransparentControl1.SetBitmap(hBitmap)
        Dim hBitmap2 As IntPtr = TransparentControl2.LoadImage("Butterfly_small.png", System.Drawing.Color.FromArgb(0))
        TransparentControl2.SetBitmap(hBitmap2)
        Dim hBitmap3 As IntPtr = TransparentControl2.LoadImage("Soccer_Ball_256.png", System.Drawing.Color.FromArgb(0))
        TransparentControl3.SetBitmap(hBitmap3)

        'TransparentControl1.Location = New Point(0, 0)
        'TransparentControl2.Location = New Point(0, 0)
        'TransparentControl3.Location = New Point(0, 0)
    End Sub
End Class