This example lets users select the type of rubber stamp they want to use.
Private Sub cmdSetStamp_Click()
'This would allow a user to click on a stamp in order to
'select it as the current stamp. See the GetRubberStampMenuItems
'method for an example of how to create a list of stamps.
Dim intNewStamp As Integer
'Get the index number of the stamp that was selected
'in the list box
intNewStamp = frmStampList.List1.ListIndex
'Set the selected stamp as the current stamp to be used.
frmMain.ImgEdit1.SetRubberStampItem intNewStamp
Unload frmStampList
End Sub