SetRubberStampItem Example VB

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