· 7 years ago · Oct 09, 2018, 08:46 PM
1Private Sub SurroundingSub()
2 Dim config As IOptions(Of EsiConfig) = Options.Create(New EsiConfig() With {
3 .EsiUrl = "https://esi.tech.ccp.is/",
4 .DataSource = DataSource.Tranquility,
5 .ClientId = "**********",
6 .SecretKey = "**********",
7 .CallbackUrl = "",
8 .UserAgent = ""
9 })
10 Dim client As EsiClient = New EsiClient(config)
11End Sub