Imports EgtUILib
Imports EgtWPFLib5

Module GeomEntityColors

#Region "METHODS"

   Public Function WritePrivateProfileColor(IpAppName As String, IpKeyName As String, ByRef Color As Color3d) As Boolean
      Dim sColor As String = Color.R & "," & Color.G & "," & Color.B & "," & Color.A
      Return WritePrivateProfileString(IpAppName, IpKeyName, sColor, m_sIniFile)
   End Function

#End Region    ' Methods

End Module