UInt
In Class PicGIF 37 Private Function UInt(ByVal i As Integer) As Long
38 ' Convert integer to unsigned integer
39 ' [i] Signed integer to convert to an unsigned value
40 ' Return value:
41 ' Unsigned integer (fits in the Long datatype)
42
43 If i < 0 Then
44 UInt = 65536 + i
45 Else
46 UInt = i
47 End If
48
49 End Function
50
51
52