Private Sub Command1_Click()
    '整型是两字节16位的，长整是四字节32位的
    '与十六进制转换要与底层二进制换算，瞎用
    '强制转换，当然不会有正确的结果。
     
    '以下程序如看不懂，请继续修炼基础知识。
    Debug.Print Hex(-600)
    Debug.Print CInt("&H" & Hex(-600))
     
    Debug.Print Hex(CLng(-600))
    Debug.Print CLng("&H" & Hex(CLng(-600)))
     
    Debug.Print Hex(-600&)
    Debug.Print CLng("&H" & Hex(-600&))
     
    Debug.Print Hex(-600)
    Debug.Print CLng("&H" & Hex(-600) Or &HFFFF0000)
 
End Sub