Membuat Tampilan Form Transparan pada VB NET

Memberikan efek transparan pada applikas project VB NET Anda. Caranya cukup mudah, simpel, dan yang pasti ga ribet. Pertama-tama silahkan Anda liat hasil jadinya terlebih dahulu pada gambar/penampakan nya dibawah ini :

Berikut adalah code yang Anda butuhkan :

Imports System.Runtime.InteropServices

Public Class Form1
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure MARGINS
        Public cxLeftWidth As Integer
        Public cxRightWidth As Integer
        Public cyTopHeight As Integer
        Public cyButtomheight As Integer
    End Structure
    <DllImport("dwmapi.dll")> _
    Private Shared Function DwmExtendFrameIntoClientArea(ByVal hwnd As IntPtr, ByRef margin As MARGINS) As Integer
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mg As MARGINS = New MARGINS
        mg.cxLeftWidth = -1
        mg.cxRightWidth = -1
        mg.cyTopHeight = -1
        mg.cyButtomheight = -1
        'set all value -1 to apply glass effect to the all of visible window
        Try
            DwmExtendFrameIntoClientArea(Me.Handle, mg)
        Catch ex As Exception
        End Try
    End Sub
End Class

Untuk source code fullnya bisa di download di link mediafire ini.
Download : Mediafire