(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22
レス数が900を超えています。1000を超えると表示できなくなるよ。
0925904
NGNGお答えありがとうございました。できました。
Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
Dim start As Long, now As Long
Private Sub Form_Load()
start=GetTickCount
End Sub
Private Sub Timer1_Timer() '間隔は100ミリ秒毎
now=GetTickCount
Label1.Caption=now-start
End Sub
レス数が900を超えています。1000を超えると表示できなくなるよ。