Description:
The Basic interpreter convert hexadecimal values in the shorter format possible : 16 bits if possible, even in a Long variable
For instance it is not possible to define a color in a constant with a null red component as RGB() function is unavailable in a constant definition.
Here is a code to demonstrate the problem :
	Dim J as Long, L as Long
	J = &H00008000
	L = &H00018000
	Msgbox "J=" & J & " L=" & L



Steps to Reproduce:
1.Dim J as Long : J = &H00008000
2.
3.

Actual Results:
-32768

Expected Results:
+32768


Reproducible: Always


User Profile Reset: No

Additional Info:
none