Visual Basic

Public Sub SetBitmap(ByVal bitmap As Bitmap, ByVal opacity As Byte)
    If Not (bitmap.PixelFormat = PixelFormat.Format32bppArgb) Then
        Throw New ApplicationException("The bitmap must be 32ppp with alpha-channel.")
    End If
    hBitmap = bitmap.GetHbitmap(Color.FromArgb(0))
    oldBitmap = Win32.SelectObject(memDc, hBitmap)
    Dim size As Win32.Size = New Win32.Size(bitmap.Width, bitmap.Height)
    Dim pointSource As Win32.Point = New Win32.Point(0, 0)
    Dim topPos As Win32.Point = New Win32.Point(Left, Top)
    Dim blend As Win32.BLENDFUNCTION = New Win32.BLENDFUNCTION
    blend.BlendOp = Win32.AC_SRC_OVER
    blend.BlendFlags = 0
    blend.SourceConstantAlpha = opacity
    blend.AlphaFormat = Win32.AC_SRC_ALPHA
    Win32.UpdateLayeredWindow(Handle, screenDc, topPos, size, memDc, pointSource, 0, blend, Win32.ULW_ALPHA)
End Sub

Dim SF As StringFormat = New StringFormat()
SF.Alignment = StringAlignment.Center
SF.LineAlignment = StringAlignment.Center
BB.DrawString("* EDIT MODE *" & vbCrLf & ActiveEditObj.Name & vbcrlf & Cursor.Position.ToString & vbcrlf & EditHasMouse0.ToString, HugeBFont, New SolidBrush(Color.FromArgb(50 + (Flux * 100), 255, 0, 0)), me.ClientRectangle, SF)
        
Dim BitTest As Bitmap = New Bitmap(application.StartupPath & "\img\closebtn.png")
BB.DrawImageUnscaled(BitTest, 10, 10)

BBBitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
BB = graphics.FromImage(BBBitmap)

SetBitmap(BBBitmap, 255)