二进制转换十六进制问题
问题：
1 0 0 0 0 0 0 0
动画 静止 保留 时间 连续 暂停 保留 闪烁
这是第一种方式：二进制的10000000，也就是十六进制的80，动画和两个保留值不变，永远是1，0，0，其他的根据用户选择而进行变动，要怎样做一个循环将这个问题做出来？

比如：动画方式： MoveMothod = &H80
动画闪烁： MoveMothod = &H81
请高手帮忙，分少了再加！

[解决办法]
不用位操作，可以用以下的方式：
Private Function getDec(ByVal Bits As String) As Byte
Dim i As Integer
Dim n As Byte
Dim l As Integer
l = Len(Bits)
For i = 1 To l
If Mid(Bits, i, 1) = "1 " Then n = n + 2 ^ (8 - i)
Next i
getDec = n
End Function
假设要设置成10011001，MoveMothod = getDec( "10011001 ")