1、强制类型转换：
CByte(),CInt(),CLng(),CStr()
直接乘或者除2^n，注意 / 和 \ 的区别，/ 会保留小数，\ 会舍去小数部分，在移位时记得用 \。
或者用一下移位函数：
原文链接：https://www.f2er.com/vb/258712.html
2、移位：
'1.逻辑左移
Public Function SHL(ByVal OPR As Byte,n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = (BD And &H7F) * 2 '将D7位屏蔽左移，防止字节溢出
Next i
CF = BD And &H80 '判断D7位是否进位
SHL = (BD And &H7F) * 2
End Function
'2.逻辑右移
Public Function SHR(ByVal OPR As Byte,n As Integer) As Byte
Dim BD As Byte
Dim I As Integer
BD = OPR
For i = 1 To n - 1
BD = BD \ 2 '右移
Next i
CF = BD And 1 '判断D0位是否进位
SHR = BD \ 2
End Function
4、判断Check的选中与否，注意它的Value不是True和False，而要用0、1、2。
5、对于一个窗口而言，改变ScaleMode可以改变窗口里的控件的计量单位，但是
窗口本身的Left、Top、Width、Height的单位还是Twip。