Public Sub SetFormTransparence(ByRef frm As System.Windows.Forms.Form, ByVal bTransparent As Boolean) If bTransparent Then frm.Opacity = 0.5# Else frm.Opacity = 1.0# End Sub