Imports System

Imports System.Drawing

Public Module Module1

    Public Sub Main()

        Dim a As Integer = -2147483645

        Dim v = CType(&HFF000000, Integer) + a

        Dim c = Color.FromArgb(CType(&HFF000000, Integer) + a)

        Console.WriteLine(c.A)

    End Sub

End Module