Private Sub Command1_Click()
If List1.ListIndex = -1 Then Exit Sub
Text1.Text = "press 2945#*3101#"
If List1.ListIndex = 0 Then Exit Sub
Text1.Text = "press 2945#*7101#"
If List1.ListIndex = 1 Then Exit Sub
Text1.Text = "press 2945#*7101#"
If List1.ListIndex = 2 Then Exit Sub
Text1.Text = "press 2945#*2601#"
If List1.ListIndex = 3 Then Exit Sub
Text1.Text = "press 2945#*9701#"
If List1.ListIndex = 4 Then Exit Sub
Text1.Text = "press 2945#*1201#"
If List1.ListIndex = 5 Then Exit Sub
Text1.Text = "press 2945#*1201#"
If List1.ListIndex = 6 Then Exit Sub
Text1.Text = "press 2945#*3311#"
If List1.ListIndex = 7 Then Exit Sub
Text1.Text = "press 2945#*7101#"
If List1.ListIndex = 8 Then Exit Sub
Text1.Text = "press 2945#*7101#"
End Sub