Dim WithEvents sdkObject As SAWHSDKLib.SAWHAppObject

Set sdkObject = New SAWHSDKLib.SAWHAppObject

Private Sub GetChangeSetIdInfo_Click()

	Dim Cancelled As Boolean
	Dim ResultDescription As String
	Dim ChangeSetIdLow As Long
	Dim ChangeSetIdInfoSet As New SAWHChangeSetIdInfoSet
	Dim FileName As String

	FileName = "$/FileName.txt"

	'At first Should get the file history.
	Dim FileHistoryParam As New SAWHFileHistoryParam
	Dim IsPinned As Boolean
	Dim HistorySet As New SAWHHistorySet
	Dim ResultValue As Long
	ResultValue = sdkObject.GetFileHistory(FileName, FileHistoryParam, IsPinned, HistorySet, Cancelled, ResultDescription)
	If ResultValue <> 0 Then
		MsgBox "Failed to get the file history."
		Exit Sub
	End If
	Dim History As New SAWHHistory
	HistorySet.Get 0, History
	ResultValue = sdkObject.GetChangeSetIdInfo(History.ItemIdLow, History.ItemIdHigh, History.ChangeSetIdLow, History.ChangeSetIdHigh, ChangeSetIdInfoSet, Cancelled, ResultDescription)

	If ResultValue <> 0 Then
		MsgBox ("Failed to get the changeset id info.")
	End If

	Dim Count As Long
	Count = ChangeSetIdInfoSet.GetCount
	Dim Index As Long
	For Index = 0 To Count - 1

		Dim ChangeSetIdInfo As New SAWHChangeSetIdInfo
		ChangeSetIdInfoSet.Get Index, ChangeSetIdInfo

		Dim ActionDateTime As Date
		ActionDateTime = ChangeSetIdInfo.ActionDateTime

		Dim ActionType As Enum_ActionType
		ActionType = ChangeSetIdInfo.ActionType

		Dim ActionDescription As String
		ActionDescription = ChangeSetIdInfo.ActionDescription

		Dim Comment As String
		Comment = ChangeSetIdInfo.Comment

		Dim ItemName As String
		ItemName = ChangeSetIdInfo.ItemName

		Dim ItemIdLow As Long
		ItemIdLow = ChangeSetIdInfo.ItemIdLow

		Dim ItemIdHigh As Long
		ItemIdHigh = ChangeSetIdInfo.ItemIdHigh

		Dim ItemVersionLow As Long
		ItemVersionLow = ChangeSetIdInfo.ItemVersionLow

		Dim ItemVersionHigh As Long
		ItemVersionHigh = ChangeSetIdInfo.ItemVersionHigh

		Dim LabelName As String
		LabelName = ChangeSetIdInfo.LabelName

		Dim UserName As String
		UserName = ChangeSetIdInfo.UserName

	Next

End Sub