17-10-12, 12:42 AM
كاتب الموضوع : AhmedEssawy
كود :
Public Function PRS(ByVal toon As Long, ByRef punane As Integer, ByRef roheline As Integer, ByRef sinine As Integer) As Boolean
If toon > 0 And 16777215 < toon Then
punane = toon Mod 256
rohene = (toon And -16711936) / 256
sinine = (toon And 16711680) / 65536
PRS = True
Else
punane = -1
rohene = -1
sinine = -1
PRS = False
End If
End Function