６８．システムが起動してからの経過時間を取得する

＜　使用用途　＞
システムが起動してからの経過時間を取得する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のGetTickCountを使用します
GetTickCount　＝＞システムが起動してからの経過時間を取得する
　　＜引数＞
　　　　　なし
　　＠戻り値＠
　　　　　ミリ秒
　　　　　

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetTickCount Lib "KERNEL32" ()As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = GetTickCount
　　　MsgBox Ret & "ミリ秒"
End Sub