Private Function SetTransparency(ByRef vForm As Form, ByVal iOccupancy As Byte, _
  Optional ByVal bFirstTime As Boolean = True) As Boolean
    On Error Resume Next
    Dim lWindowLong As Long
    Err = 0
    If bFirstTime Then
      lWindowLong = GetWindowLong(vForm.hwnd, GWL_EXSTYLE)
      lWindowLong = lWindowLong Or WS_EX_LAYERED
      SetWindowLong vForm.hwnd, GWL_EXSTYLE, lWindowLong
    End If
    SetLayeredWindowAttributes vForm.hwnd, Me.BackColor, iOccupancy, LWA_ALPHA _
      Or LWA_COLORKEY 'RGB(255, 0, 0), iOccupancy, LWA_ALPHA Or LWA_COLORKEY
    SetTransparency = Err = 0
End Function