Я искал то же самое, и я придумал ОЧЕНЬ простой код, который просто работает.
Keypreview должен быть True в форме, объявить одну строку с именем "konami" в вашей форме
Private Sub frm_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp
Dim i As String = "UpUpDownDownLeftRightLeftRightBA"
If (e.KeyCode.ToString = "Up") And (konami <> "Up") Then konami = ""
konami = konami & e.KeyCode.ToString
'Debug.Print(konami)
If konami = i Then '' << INSERT YOUR MESSAGE HERE >> ''
If e.KeyCode.ToString = "Return" Then konami = ""
If konami.Length > 60 Then konami = ""
End Sub