event keyPress tombol Enter

Dim pw As String = "password"

If e.KeyChar = chr(13) Then
    If TextBox1.Text = pw Then
        msgBox("Tampilkan Form")
    Else
        msgBox("Password salah!", vbCritical)
    End If
End If