adientFillTri Me.hDC, tR, _
            BlendColor(vb3DHighlight, vbButtonFace), vbButtonFace, _
            vbButtonFace, BlendColor(vbButtonFace, vbButtonShadow, 224)
         Me.Refresh
      End If
   End If
End Sub

Private Sub lblCopyright_Click()
   UrlClick lblCopyright
End Sub

Private Sub lblLinkTo_Click()
   UrlClick lblLinkTo
End Sub

Private Sub picLogo_Click()
   UrlClick picLogo
End Sub

Private Sub GradientFillTri( _
      ByVal lHDC As Long, _
      tR As RECT, _
      ByVal topLeftColor As