Public Sub SetWarning( _
   ByVal nIDPrompt As UInt, _
   ByVal set As Long, _
   ByVal nType As UInt, _
   ByVal defaultVal As UInt _
)