It looks like you're new here. If you want to get involved, click one of these buttons!
Table: TestTable Moe Larry Curly Shemp Joe
Sub TestTableRoll()
Dim ipad 'as InspirationPad
Dim i 'as Int
' Load the table.
ipad = CreateIpadTable("TestTable.ipt")
' Roll 4 times
ipad.Go 4
' Get the results.
For i = 0 To 3
sector.GMNotes = sector.GMNotes & "Result " & i & ": " & ipad.GetResult(i) & vbNewLine
Next 'i
FreeObject ipad
End Sub
Result 0: Result 1: Result 2: Result 3: