Private Sub intro_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles intro.KeyPress
If (e.KeyChar = Chr(Keys.Enter)) Then
If Me.ListBox1.Visible = True Then
Me.ListBox1.Visible = False
Else : Me.ListBox1.Visible = True
End If
End If
End Sub