How to Make Form Transparent in
  • Make Form Transparent in
  • 1 Comment sorted by

  • Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    TransparencyKey = BackColor
    Label1.BackColor = TransparencyKey
    End Sub

    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    Dim thick_pen As New Pen(Color.Black, 10)
    Dim rect As New Rectangle(e.ClipRectangle.X + 10, e.ClipRectangle.Y + 10, _
    e.ClipRectangle.Width - 20, e.ClipRectangle.Height - 20)
    e.Graphics.DrawRectangle(thick_pen, rect)
    End Sub

Howdy, Stranger!

It looks like you're new here. If you want to get involved, or you want to Ask a new Question, Please Login or Create a new Account by Clicking below

Login with Facebook

Popular Posts of the Week

    Optimum Creative