NumOfRed = ( NumOfRed + 14 ) * 16 
		Case "F"
			NumOfRed = ( NumOfRed + 15 ) * 16 
		Case Else
			NumOfRed = ( NumOfRed + CInt( MyByte ) ) * 16 
		End Select
	Next
	//上面多乘了16，要去掉
	NumOfRed = NumOfRed / 16
	// Red + Green*256 + Blue*65536
	NumOfRed = NumOfRed - 65536 * Fix( NumOfRed/65536 )
	//去掉Blue色
	NumOfRed = NumOfRed - 256 * Fix( NumOfRed/256 )
	//去掉Green色
	
	GetRedOfRGB = NumOfRed
	Rem EndOfGetRedOfRGB
End Function