フォームを開いてからの時間を取得
ウィンドウズを起動してからの経過時間取得のプログラムは下記ようになったのですが・・・ＶＢでつくったフォームを開いたと同時にカウントされるようにコーディングしたいのですがどうしたらよいのでしょうか？
例） Ａという名前のフォームを開くと「ＯＯ時間ＯＯ分ＯＯ秒経過」という風にそのフォームのステーラスバーに出そうとしています。
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Private Sub Timer1_Timer()
Dim RetCount As Long
Dim h As Integer, m As Integer, s As Integer, ms As Integer
RetCount = GetTickCount 'ミリ秒単位で返ってきます
'
h = RetCount \ 1000 \ 60 \ 60
m = RetCount \ 1000 \ 60 - h * 60
s = RetCount \ 1000 - (h * 60 * 60 + m * 60)
ms = RetCount Mod 1000
Label1.Caption = "経過時間 " & Right(("0" & h), 2) & ":" _
& Right(("0" & m), 2) & ":" & Right(("0" & s), 2) & "." _
& Right(("00" & ms), 3)
End Sub
補足
単純に「DateTime.Today」だけを取得して表示しているだけなのですが・・・。