Dim WithEvents sdkObject As SAWHSDKLib.SAWHAppObject

Set sdkObject = New SAWHSDKLib.SAWHAppObject

Private Sub GetFileCheckoutStatus_Click()
	Dim Cancelled As Boolean
	Dim ResultDescription As String
	Dim CheckoutFileStatusSet As New SAWHCheckoutFileStatusSet

	Dim FileName As String
	FileName = "$/FileName.txt"

	Dim ResultValue As Long
	ResultValue = sdkObject.GetFileCheckoutStatus(FileName, CheckoutFileStatusSet, Cancelled, ResultDescription)

	If ResultValue <> 0 Then
		MsgBox "Failed to get the file checked out status."
		Exit Sub
	End If

	Dim Count As Long
	Count = CheckoutFileStatusSet.GetCount
	Dim Index As Long
	For Index = 0 To Count - 1
		Dim CheckoutFileStatus As New SAWHCheckoutFileStatus
		CheckoutFileStatusSet.Get Index, CheckoutFileStatus
		Dim DateTime As Date
		DateTime = CheckoutFileStatus.CheckoutDateTime
		Dim UserName As String
		UserName = CheckoutFileStatus.CheckoutUserName
		Dim Comment As String
		Comment = CheckoutFileStatus.Comment
		Dim VersionNumberLow As Long
		VersionNumberLow = CheckoutFileStatus.VersionNumberLow
		Dim VersionNumberHigh As Long
		VersionNumberHigh = CheckoutFileStatus.VersionNumberHigh
	Next

End Sub