If highest > current Then
HSpanel.Visible=True
EditText1.SingleLine=True
EditText1.Text=""
EditText1.InputType=EditText1.INPUT_TYPE_TEXT
EditText1.RequestFocus
ime.ShowKeyboard(EditText1)
MediaPlayer1.Play
Else
ToastMessageShow("Sorry - You didn't make the leader board", False)
MediaPlayerlongbeep.Play
End If