以外とホームページ作成は大変だな。
ヤフーのは難しいんで放置中。
button1_click
Dim x As Integer
x=CInt(DateTime.Now.Millisecond)
MsgBox(x)
End Sub
やってます。VB2008無料版