Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
RNDinov8r
in reply to: RNDinov8r

So, that was it... I needed it to fire on a new file creation, and had to prompt for input there as well, so I add thed last four lines...but this is what I needed. Thanks Guys!!!!

 

Dim ValueList As New List(Of String)({"ROUND", "SQUARE", "SHEET", "PURCHASED" }) ' Add more options here if needed
Dim iPropVal As String

Try
	'See if the iProperty exists currently
	iPropVal = iProperties.Value("Custom", "Form Factor")
Catch ex As Exception
	'It doesn't exists, so create it
	iPropVal = InputListBox("Prompt", ValueList, ValueList.Item(0), Title := "iLogic", ListName := "Form List")
	If iPropVal Is Nothing Then Return ' User closed form before selecting option
	iProperties.Value("Custom", "Form Factor") = iPropVal
End Try

If iProperties.Value("Custom", "Form Factor") = Nothing Then
	iPropVal = InputListBox("Prompt", ValueList, ValueList.Item(0), Title := "iLogic", ListName := "Form List")
	If iPropVal Is Nothing Then Return ' User closed form before selecting option
End If