Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Form_Load()

Me.Text1.Text = Int(GetTickCount / 1000 / 60)

End Sub

نوشته شده در تاریخ سه شنبه 17 آذر 1388    | توسط: محمد و مجید َ    |    |
نظرات()