Attribute VB_Name = "Module1"
Option Explicit

'宣告使用GettickCount的API函式
Declare Function GetTickCount Lib "kernel32" () As Long

'''''''''''''''''''''''''''''''''''
'制造亂數的函式，Randomize用於重置亂數產生器
'使用VB中的Rnd函式即可造出
'''''''''''''''''''''''''''''''''''
Function GetData()
Randomize
GetData = 10 * Rnd()
End Function