Engage with tech pros in our community with native advertising, as a Vendor Expert, and more.
Const counter = 0 Private Sub ObjOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date) Dim i As Integer Dim strChanges As String If counter = 0 Then MsgBox "first time in the loop, do nothing" Else counter = 1 For i = 1 To NumItems strChanges = "do somthing" Next i MsgBox strChanges End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!