Noname > 22-09-10, 09:32 AM
Private Sub Form_Open(Cancel As Integer)
Me.Caption = "Dữ liệu đã bị khóa !"
Me.TimerInterval = 600
End Sub
Private Sub Form_Timer()
If Me.Caption = Space(1) Then
Me.Caption = "Dữ liệu đã bị khóa !"
Else
Me.Caption = Space(1)
End If
End Sub