Dim WithEvents sdkObject As SAWHSDKLib.SAWHAppObject

Set sdkObject = New SAWHSDKLib.SAWHAppObject

Private Sub GetFileHistory_Click()

	Dim Cancelled As Boolean
	Dim ResultDescription As String

	Dim FileName As String
	Dim FileHistoryParam As New SAWHFileHistoryParam
	Dim IsPinned As Boolean
	Dim HistorySet As New SAWHHistorySet

	FileName = "$/FileName.txt"

	Dim ResultValue As Long
	ResultValue = sdkObject.GetFileHistory(FileName, FileHistoryParam, IsPinned, HistorySet, Cancelled, ResultDescription)

	If ResultValue <> 0 Then
		MsgBox "Failed to get the file history."
	End If

	Dim Count As Long
	Count = HistorySet.GetCount
	Dim Index As Long
	For Index = 0 To Count - 1
		Dim History As New SAWHHistory
		HistorySet.Get Index, History

		Dim ActionDateTime As Date
		ActionDataTime = History.ActionDateTime

		Dim ActionDescription As String
		ActionDescription = History.ActionDescription

		Dim ActionType As Enum_ActionType
		ActionType = History.ActionType

		Dim CheckinDateTime As Date
		CheckinDateTime = History.CheckinDateTime

		Dim Comment As String
		Comment = History.Comment

		Dim ChangeSetIdLow As Long
		ChangeSetIdLow = History.ChangeSetIdHigh

		Dim ChangeSetIdHigh As Long
		ChangeSetIdHigh = History.ChangeSetIdHigh

		Dim FileSizeLow As Long
		FileSizeLow = History.FileSizeLow

		Dim FileSizeHigh As Long
		FileSizeHigh = History.FileSizeHigh

		Dim HistoryIdLow As Long
		HistoryIdLow = History.HistoryIdLow

		Dim HistoryIdHigh As Long
		HistoryIdHigh = History.HistoryIdHigh

		Dim IsMergeable As Boolean
		IsMergeable = History.IsMergable

		IsPinned = History.IsPinned

		Dim IsProject As Boolean
		IsProject = History.IsProject

		Dim ItemIdLow As Long
		ItemIdLow = History.ItemIdLow

		Dim ItemIdHigh As Long
		ItemIdHigh = History.ItemIdHigh

		Dim ItemName As String
		ItemName = History.ItemName

		Dim LabelName As String
		LabelName = History.LabelName

		Dim ModificationDateTime As Date
		ModificationDateTime = History.ModificationDateTime

		Dim UserName As String
		UserName = History.UserName

		Dim VersionNumberLow As Long
		VersionNumberLow = History.VersionNumberLow

		Dim VersionNumberHigh As Long
		VersionNumberHigh = History.VersionNumberHigh

	Next

End Sub