Imap Object : Certificate Event |
Visual Basic |
---|
Public Event Certificate() |
Private Sub SecureTcp1_Certificate ( ) Dim Store As New CertificateStore 'Get the desired certificate SecureTcp1.Certificate = Store.Find("ROOT", locationLocalMachine, g_SavedIssuedBy, g_SavedSerialNumber) 'Or you could pop up a list box so the user could select a certificate End Sub