Dim autho() As String =Array As String( _
"<html>", _
"<head>", _
"<meta charset=""utf-8"">", _
"<style>", _
"body{ background: #67BE4B; }", _
"#container{ width:400px; margin:0 auto; margin-top:10%; }", _
"form { width:100%; padding: 30px; border: 1px solid #f1f1f1; background: #fff; box-shadow: 0 0 20px 0 rgba(0, 0, 0, 0.2), 0 5px 5px 0 rgba(0, 0, 0, 0.24); }", _
"#container h1{ width: 38%; margin: 0 auto; padding-bottom: 10px; }", _
"input[type=submit] { background-color: #53af57; color: white; padding: 14px 20px; margin: 8px 0; border: none; cursor: pointer; width: 100%; }", _
"input[type=submit]:hover { background-color: white; color: #53af57; border: 1px solid #53af57; }", _
"input[type=text], input[type=password] { width: 100%; padding: 12px 20px; margin: 8px 0; display: inline-block; border: 1px solid #ccc; box-sizing: border-box; }", _
"</style>", _
"</head>", _
"<body>", _
"..........................................