Private Sub this_Click(Byval username As String) Handles this.click
    MessageBox.Show("你好，"+username+"欢迎来到希望之岛，来到Antertony的世界！","欢迎你")
End Sub