>>30
timeGettimeより正確なタイマーってあるんですねー。


Public Function RGB15(Red As Long, Green As Long, Blue As Long) As Long
'--------------------------
'用途　：15bit RGB値を返す
'引数　：各色0〜31で入力
'戻り値：32以上を入力したら0が返される
'--------------------------
　　Dim Res As Long

　　If Red >= 32 Or Green >= 32 Or Blue >= 32 Then
　　　　RGB15 = 0
　　　　Exit Function
　　End If

　　Res = Red
　　Res = Res + Green * &H20
　　Res = Res + Blue * &H400

　　RGB15 = Res
End Function

用途不明age
※自作のRGB関数と、最初からついてるRGB関数で速度を計ったところ、
　自作の方は全てLong型を使っても遅かったです。