Ftp Object : Certificate Event |
Visual Basic |
---|
Public Event Certificate() |
Private Sub Ftp1_Certificate () Dim Store As New CertificateStore 'Get the desired certificate Ftp1.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