>>500
(´・ω・`)VBのことならなんでも任せてくれ!
Dim hmTimpo As Interger = 3
Dim btTimpo As Interger = 16

If hmTimpo >= btTimpo Then