Private Sub _save_Click(sender As Object, e As EventArgs) Handles _save.Click Dim newGroupName As String = _groupName.Text CheckPrimarySmtpExOnline(newGroupName) End Sub Private Function CheckPrimarySmtpExOnline(newGroupName As String) As Boolean Dim _ExOnlineAppId As String = “” Dim _ExOnlineCert As String = “” Dim _result As Boolean = False Try Dim initialSessionState As InitialSessionState = InitialSessionState.CreateDefault() Dim modules As String() […]