|
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.Size = New Size(545, 500)
Dim bmp As New Bitmap("C:\user\vb\2008_04\form.bmp")
Dim transColor As Color = bmp.GetPixel(500, 480)
bmp.MakeTransparent(transColor)
Me.BackgroundImage = bmp
Me.BackColor = transColor
Me.TransparencyKey = transColor
End Sub
| |