Public Function GetCredentials() As _
ClientFormsAuthenticationCredentials Implements _
IClientFormsAuthenticationCredentialsProvider.GetCredentials
If Me.ShowDialog() = DialogResult.OK Then
Return New ClientFormsAuthenticationCredentials( _
UsernameTextBox.Text, PasswordTextBox.Text, _
rememberMeCheckBox.Checked)
Else
Return Nothing
End If
End Function