Tìm hiểu ngôn ngữ lập trình Visual Basic

nhap.Text, n - 1) & "2" 'i = 0 End Select '****************phim so 3*************** Case 3 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(3) orderinquick = 3 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(3) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "D" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "E" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "F" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "3" 'i = 0 End Select '***************phim so 4**************** Case 4 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(4) orderinquick = 4 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(4) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "G" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "H" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "I" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "4" 'i = 0 End Select '************** phim so 5 *************** Case 5 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(5) 'menuaccess.thutu orderinquick = 5 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(5) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "J" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "K" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "L" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "5" 'i = 0 End Select '*************** phim so 6 *************** Case 6 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(6) 'menuaccess.thutu orderinquick = 6 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(6) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "M" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "N" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "O" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "6" 'i = 0 End Select '**************** phim so 7 ************** Case 7 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(7) orderinquick = 7 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(7) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "P" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "Q" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "R" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "S" i = i + 1 Case 4 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "7" 'i = 0 End Select '*********** phim so 8 ******************* Case 8 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(8) orderinquick = 8 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(8) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "T" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "U" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "V" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "8" 'i = 0 End Select '************* phim so 9 ***************** Case 9 'user dung phim so trong menu quick access If quickaccess = True Then luumuc = clickquickaccess(9) orderinquick = 9 Exit Sub End If 'user dung phim so trong menu message If messagelist = True Then Call clickmessage(9) Exit Sub End If 'user dung phim so de nhap ky tu Select Case i Case 0 tbnhap.Text = tbnhap.Text & "W" i = i + 1 Case 1 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "X" i = i + 1 Case 2 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "Y" i = i + 1 Case 3 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "Z" i = i + 1 Case 4 n = Len(tbnhap.Text) tbnhap.Text = Left(tbnhap.Text, n - 1) & "9" 'i = 0 End Select End Select End If '********** phim cancle ****************** Select Case Index Case 10 If volume.Visible = True Then Exit Sub End If If locked = True Or autolocked = True Then Exit Sub End If If callnumberfixed = True Then callnumberfixed = False End If If listdial = True Then listdial = False 'Exit Sub End If If callnumber = True Then tbnhap.Text = "Menu" callnumber = False 'Exit Sub End If If found = True Then 'And setup = False Then tbnhap.Text = "Phone Book" found = False flag = False menucon = False Exit Sub End If If phonebook = True Then tbnhap.Text = "Phone Book" phonebook = False send = False Exit Sub End If 'se thoat ra muc Phone Setup khi dang lam viec voi menu con cua no If setup = True Then tbnhap.Text = "Phone Setup" setup = False Exit Sub End If 'neu dang nam trong menu quick access then If quickaccess = True Then tbnhap.Text = "Menu" quickaccess = False danhso = True Exit Sub End If If longpress = True Then tbnhap.Text = "Menu" longpress = False danhso = True Exit Sub End If If tbnhap.Text = "Overwritten?" Then tbnhap.Text = "Enter Location!" & vbCrLf Exit Sub End If If accessory = True Then tbnhap.Text = "Accessory Setup" accessory = False Exit Sub End If If network = True Then tbnhap.Text = "Network Selection" network = False showlist = False Exit Sub End If If features = True Then tbnhap.Text = "Call Related Features" features = False Exit Sub End If If message1 = True Then tbnhap.Text = "Messages" message1 = False messagelist = False Exit Sub End If If tbnhap.Text = "Phone Book" Or tbnhap.Text = "Messages" Or tbnhap.Text = "Phone Setup" Then tbnhap.Text = "Menu" Exit Sub End If If tbnhap.Text = "Call Related Features" Or tbnhap.Text = "Network Selection" Or tbnhap.Text = "Accessory Setup" Then tbnhap.Text = "Menu" Exit Sub End If If tbnhap.Text = "Are you sure?" Then tbnhap.Text = "Network Selection" network = False showlist = False Exit Sub End If If availablenetwork = True Or addnetwork = True Then tbnhap.Text = "Network Selection" availablenetwork = False addnetwork = False Exit Sub End If If editentrylist = True Or eraseentrylist = True Or addentrylist = True Then editentrylist = False addentrylist = False eraseentrylist = False Exit Sub End If If danhso = False And cancle = True Then tbnhap.Text = "Menu" danhso = True Exit Sub End If If danhso = True Or cancle = False Then If editor = True Then n = Len(tbnhap.Text) If n = 0 Then tbnhap.Text = "Messages" editor = False danhso = False cancle = True Exit Sub Else tbnhap.Text = Left(tbnhap.Text, n - 1) Exit Sub End If End If If setting = True Then n = Len(tbnhap.Text) If n = 0 Then tbnhap.Text = "Messages" danhso = False cancle = True setting = False Else tbnhap.Text = Left(tbnhap.Text, n - 1) End If Exit Sub End If k = InStr(tbnhap.Text, vbCr) n = Len(tbnhap.Text) If n = 0 Then tbnhap.Text = "Menu" Exit Sub End If If n = k + 1 Then 'Beep tbnhap.Text = "Phone Book" '"Personal Number" cancle = True danhso = False changecase = False 'Exit Sub Else If tbnhap.Text = "Menu" Then Beep Else tbnhap.Text = Left(tbnhap.Text, n - 1) Exit Sub End If End If End If '************ Phim menu-up *************** Case 11 If tbnhap.Text = "Network Selection" Then tbnhap.Text = "Phone Setup" Exit Sub End If If tbnhap.Text = "Phone Setup" Then tbnhap.Text = "Messages" Exit Sub End If If tbnhap.Text = "Messages" Then tbnhap.Text = "Call Related Features" Exit Sub End If If tbnhap.Text = "Call Related Features" Then tbnhap.Text = "Phone Book" Exit Sub End If If tbnhap.Text = "Phone Book" Then tbnhap.Text = "Accessory Setup" Exit Sub End If If tbnhap.Text = "Accessory Setup" Then tbnhap.Text = "Network Selection" Exit Sub End If 'menu con cua muc Phone Book If tbnhap.Text = "One-Touch Dial Setting" Then tbnhap.Text = "Fixed Dialling" Exit Sub End If If Trim(tbnhap.Text) = "Fixed Dialling" Then tbnhap.Text = "Personal Number" Exit Sub End If If tbnhap.Text = "Personal Number" Then tbnhap.Text = "One-Touch Dial Setting" Exit Sub End If 'vao menu con cua muc Personal Number If tbnhap.Text = "Prevent Access" Then tbnhap.Text = "Check Capacity" Exit Sub End If If tbnhap.Text = "Check Capacity" Then tbnhap.Text = "Add Entry" Exit Sub End If If tbnhap.Text = "Add Entry" Then tbnhap.Text = "Find Entry by Location" Exit Sub End If If tbnhap.Text = "Find Entry by Location" Then tbnhap.Text = "Find Entry by Name" Exit Sub End If If tbnhap.Text = "Find Entry by Name" Then tbnhap.Text = "Prevent Access" Exit Sub End If 'vao menu con cua muc Check Capacity If tbnhap.Text = "Check SIM Capacity" Then tbnhap.Text = "Check Phone Capacity" Exit Sub End If If tbnhap.Text = "Check Phone Capacity" Then tbnhap.Text = "Check SIM Capacity" Exit Sub End If 'vao menu con cua muc Find Entry If tbnhap.Text = "Erase Name and Number" Then tbnhap.Text = "Modify Name or Number" Exit Sub End If If tbnhap.Text = "Modify Name or Number" Then tbnhap.Text = "Call Number" Exit Sub End If If tbnhap.Text = "Call Number" Then tbnhap.Text = "Erase Name and Number" Exit Sub End If 'menu con cua muc Prevent Access If tbnhap.Text = "To Phone & SIM Memory" Then tbnhap.Text = "To Phone Memory" Exit Sub End If If tbnhap.Text = "To Phone Memory" Then tbnhap.Text = "To SIM Card Memory" Exit Sub End If If tbnhap.Text = "To SIM Card Memory" Then tbnhap.Text = "No Memory Restrictions" Exit Sub End If If tbnhap.Text = "No Memory Restrictions" Then tbnhap.Text = "To Phone & SIM Memory" Exit Sub End If 'menu con cua muc Add Entry If tbnhap.Text = "Add To SIM Card Memory" Then tbnhap.Text = "Add To Phone Memory" Exit Sub End If If tbnhap.Text = "Add To Phone Memory" Then tbnhap.Text = "Add To SIM Card Memory" Exit Sub End If 'xu ly cua muc Fixed Dialling If tbnhap.Text = "Setup Fixed Dialling" Then tbnhap.Text = "View Fixed Dial List" Exit Sub End If If tbnhap.Text = "View Fixed Dial List" Then tbnhap.Text = "Setup Fixed Dialling" Exit Sub End If 'xu ly cua muc Setup Fixed Dialling If tbnhap.Text = "Off." Then tbnhap.Text = "On." Exit Sub End If If tbnhap.Text = "Erase Entry" Then tbnhap.Text = " Add Entry" Exit Sub End If If tbnhap.Text = " Add Entry" Then tbnhap.Text = "Edit Entry" Exit Sub End If If tbnhap.Text = "Edit Entry" Then tbnhap.Text = "Off." Exit Sub End If If tbnhap.Text = "On." Then tbnhap.Text = "Erase Entry" Exit Sub End If 'phan xu ly khi vao menu con cua muc One-Touch Dial Setting If tbnhap.Text = " To SIM Memory" Then tbnhap.Text = " To Phone Memory" Exit Sub End If If tbnhap.Text = " To Phone Memory" Then tbnhap.Text = " To Fixed Dial List" Exit Sub End If If tbnhap.Text = " To Fixed Dial List" Then tbnhap.Text = " To SIM Memory" Exit Sub End If 'phan xu ly cua menu Call Related Features If tbnhap.Text = "Key Answer Only" Then tbnhap.Text = "Call Barring" Exit Sub End If If tbnhap.Text = "Call Barring" Then tbnhap.Text = "Call Waiting" Exit Sub End If If tbnhap.Text = "Call Waiting" Then tbnhap.Text = "Talk and Fax" Exit Sub End If If tbnhap.Text = "Talk and Fax" Then tbnhap.Text = "Call Diverting" Exit Sub End If If tbnhap.Text = "Call Diverting" Then tbnhap.Text = "Restrict My Phone Number" Exit Sub End If If tbnhap.Text = "Restrict My Phone Number" Then tbnhap.Text = "Show Battery Meter" Exit Sub End If If tbnhap.Text = "Show Battery Meter" Then tbnhap.Text = "Key Answer Only" Exit Sub End If 'vao menu con cua muc Restrict My Phone Number If tbnhap.Text = "Show ID On Next Call" Then tbnhap.Text = "Restrict ID On Next Call" Exit Sub End If If tbnhap.Text = "Restrict ID On Next Call" Then tbnhap.Text = "Show ID On Next Call" Exit Sub End If 'vao menu con cua muc Call Diverting If tbnhap.Text = "Divert Voice Calls" Then tbnhap.Text = "Cancel All Diverting" Exit Sub End If If tbnhap.Text = "Cancel All Diverting" Then tbnhap.Text = "Divert Data Calls" Exit Sub End If If tbnhap.Text = "Divert Data Calls" Then tbnhap.Text = "Divert Fax Calls" Exit Sub End If If tbnhap.Text = "Divert Fax Calls" Then tbnhap.Text = "Divert Voice Calls" Exit Sub End If 'vao menu con cua muc Divert Voice Calls If tbnhap.Text = "Divert When Unavailable" Then tbnhap.Text = "Detailed Diverting" Exit Sub End If If tbnhap.Text = "Detailed Diverting" Then tbnhap.Text = "Divert All Voice Calls" Exit Sub End If If tbnhap.Text = "Divert All Voice Calls" Then tbnhap.Text = "Divert When Unavailable" Exit Sub End If 'vao menu con cua muc Detailed Diverting If tbnhap.Text = "If No Answer" Then tbnhap.Text = "If Not Reachable" Exit Sub End If If tbnhap.Text = "If Not Reachable" Then tbnhap.Text = "If Busy" Exit Sub End If If tbnhap.Text = "If Busy" Then tbnhap.Text = "If No Answer" Exit Sub End If 'vao menu con cua muc Call Barring If tbnhap.Text = "Change Bar Password" Then tbnhap.Text = "Cancel All Barring" Exit Sub End If If tbnhap.Text = "Cancel All Barring" Then tbnhap.Text = "Bar Incoming Calls" Exit Sub End If If tbnhap.Text = "Bar Incoming Calls" Then tbnhap.Text = "Bar Outgoing Calls" Exit Sub End If If tbnhap.Text = "Bar Outgoing Calls" Then tbnhap.Text = "Change Bar Password" Exit Sub End If 'vao menu con cua muc Bar Outgoing Calls If tbnhap.Text = "Off?" Then tbnhap.Text = "All Calls" Exit Sub End If If tbnhap.Text = "All Calls" Then tbnhap.Text = "Int'l Calls Expect Home" Exit Sub End If If tbnhap.Text = "Int'l Calls Expect Home" Then tbnhap.Text = "Int'l Calls" Exit Sub End If If tbnhap.Text = "Int'l Calls" Then tbnhap.Text = "Off?" Exit Sub End If 'vao menu con cua muc Bar Incoming Call If tbnhap.Text = "Off? " Then tbnhap.Text = " All Calls" Exit Sub End If If tbnhap.Text = " All Calls" Then tbnhap.Text = "When Roaming" Exit Sub End If If tbnhap.Text = "When Roaming" Then tbnhap.Text = "Off? " Exit Sub End If 'phan xu ly cua menu Message If tbnhap.Text = "Outgoing Messages" Then tbnhap.Text = "Call Voicemail" Exit Sub End If If tbnhap.Text = "Message Editor" Then tbnhap.Text = "Outgoing Messages" Exit Sub End If If tbnhap.Text = "Cell Broadcast" Then tbnhap.Text = "Message Editor" Exit Sub End If If tbnhap.Text = "Message Settings" Then tbnhap.Text = "Cell Broadcast" Exit Sub End If If tbnhap.Text = "Call Voicemail" Then tbnhap.Text = "Message Settings" Exit Sub End If 'vao menu con cua muc Outgoing Message If tbnhap.Text = "Edit Message" Then tbnhap.Text = "Send Message" Exit Sub End If If tbnhap.Text = "Delete Message" Then tbnhap.Text = "Edit Message" Exit Sub End If If tbnhap.Text = "Go to Next Message" Then tbnhap.Text = "Delete Message" Exit Sub End If If tbnhap.Text = "Send Message" Then tbnhap.Text = "Go to Next Message" Exit Sub End If 'vao menu con cua muc Edit Message If tbnhap.Text = " Send Message" Then tbnhap.Text = "Store Message" Exit Sub End If If tbnhap.Text = "Store Message" Then tbnhap.Text = " Send Message" Exit Sub End If 'vao menu con cua muc Send Message If tbnhap.Text = " Find Entry by Location" Then tbnhap.Text = " Find Entry by Name" Exit Sub End If If tbnhap.Text = " Find Entry by Name" Then tbnhap.Text = " Enter Number" Exit Sub End If If tbnhap.Text = " Enter Number" Then tbnhap.Text = " Find Entry by Location" Exit Sub End If 'vao menu con cua muc Message Setting If tbnhap.Text = "Service Centre" Then tbnhap.Text = "Voicemail Number" Exit Sub End If If tbnhap.Text = "Expiry Period" Then tbnhap.Text = "Service Centre" Exit Sub End If If tbnhap.Text = "Outgoing Message Type" Then tbnhap.Text = "Expiry Period" Exit Sub End If If tbnhap.Text = "Voicemail Number" Then tbnhap.Text = "Outgoing Message Type" Exit Sub End If 'vao menu con cua muc Outgoing Message Type If tbnhap.Text = "Fax" Then tbnhap.Text = "Text" Exit Sub End If If tbnhap.Text = "X400" Then tbnhap.Text = "Fax" Exit Sub End If If tbnhap.Text = "Paging" Then tbnhap.Text = "X400" Exit Sub End If If tbnhap.Text = "Email" Then tbnhap.Text = "Paging" Exit Sub End If If tbnhap.Text = "ERMES" Then tbnhap.Text = "Email" Exit Sub End If If tbnhap.Text = "Voice" Then tbnhap.Text = "ERMES" Exit Sub End If If tbnhap.Text = "Text" Then tbnhap.Text = "Voice" Exit Sub End If 'phan xu ly khi dung phim menu de di chuyen giua nhung tin nhan If messagelist = True Then Open filename4 For Random As #1 Len = Len(message) banghi = LOF(1) \ Len(message) If messagenumber = 1 Then Get #1, banghi, message tbnhap.Text = Trim(message.tin) messagenumber = banghi Else messagenumber = messagenumber - 1 Get #1, messagenumber, message tbnhap.Text = Trim(message.tin) End If Close #1 Exit Sub End If 'nhung muc con cua Phone Setup If tbnhap.Text = "Adjust Ring Volume" Then tbnhap.Text = "Select Phone Line" Exit Sub End If If tbnhap.Text = "Ring or Vibrate" Then tbnhap.Text = "Adjust Ring Volume" Exit Sub End If If tbnhap.Text = "Set Ringer Tone" Then tbnhap.Text = "Ring or Vibrate" Exit Sub End If If tbnhap.Text = "Set Ringer Tone 2" Then tbnhap.Text = "Set Ringer Tone" Exit Sub End If If line2 = True Then If tbnhap.Text = "Phone Lock" Then tbnhap.Text = "Set Ringer Tone 2" Exit Sub End If Else If tbnhap.Text = "Phone Lock" Then tbnhap.Text = "Set Ringer Tone" Exit Sub End If End If If tbnhap.Text = "Change SIM PIN2 Code" Then tbnhap.Text = "Phone Lock" Exit Sub End If If tbnhap.Text = "New Security Code" Then tbnhap.Text = "Change SIM PIN2 Code" Exit Sub End If If tbnhap.Text = "Extended Menus" Then tbnhap.Text = "New Security Code" Exit Sub End If If extend = False Then If tbnhap.Text = "Select Phone Line" Then tbnhap.Text = "Extended Menus" Exit Sub End If End If 'nhung menu mo rong khi extended menus o trang thai on If extend = True Then If tbnhap.Text = "Show Time and Date" Then tbnhap.Text = "Extended Menus" Exit Sub End If If tbnhap.Text = "Set Time and Date" Then tbnhap.Text = "Show Time and Date" Exit Sub End If If tbnhap.Text = "Set Time Format" Then tbnhap.Text = "Set Time and Date" Exit Sub End If If tbnhap.Text = "Battery Saving Mode" Then tbnhap.Text = "Set Time Format" Exit Sub End If If tbnhap.Text = "Select Keypad Tones" Then tbnhap.Text = "Battery Saving Mode" Exit Sub End If If tbnhap.Text = "Select Phone Line" Then tbnhap.Text = "Select Keypad Tones" Exit Sub End If End If 'vao menu con cua muc Select phone line If tbnhap.Text = "Line 2" Then tbnhap.Text = "Line 1" Exit Sub End If If tbnhap.Text = "Line 1" Then tbnhap.Text = "Line 2" Exit Sub End If 'vao menu con cua muc Ring or vibrate If tbnhap.Text = "Vibrate Only" Then tbnhap.Text = "Ring Only" Exit Sub End If If tbnhap.Text = "Vibrate Then Ring" Then tbnhap.Text = "Vibrate Only" Exit Sub End If If tbnhap.Text = "No Ring or Vibrate" Then tbnhap.Text = "Vibrate Then Ring" Exit Sub End If If tbnhap.Text = "Ring Only" Then tbnhap.Text = "No Ring or Vibrate" Exit Sub End If 'vao menu con cua muc Set Ringer Tone If tbnhap.Text = "Music Tone" Then tbnhap.Text = "Standard Tone" Exit Sub End If If tbnhap.Text = "Standard Tone" Then tbnhap.Text = "Music Tone" Exit Sub End If 'vao menu con cua muc Phone Lock If tbnhap.Text = "Lock Now" Then tbnhap.Text = "Automatic Lock" Exit Sub End If If tbnhap.Text = " Change Unlock Code" Then tbnhap.Text = "Lock Now" Exit Sub End If If tbnhap.Text = "Automatic Lock" Then tbnhap.Text = " Change Unlock Code" Exit Sub End If 'vao menu con cua muc Automatic phone lock If tbnhap.Text = " Off " Then tbnhap.Text = " On " Exit Sub End If If tbnhap.Text = " On " Then tbnhap.Text = " Off " Exit Sub End If 'vao menu con cua muc Extended menus If tbnhap.Text = " Off" Then tbnhap.Text = " On" Exit Sub End If If tbnhap.Text = " On" Then tbnhap.Text = " Off" Exit Sub End If 'vao menu con cua muc Require SIM card pin If tbnhap.Text = "Change SIM PIN Code" Then tbnhap.Text = " Off." Exit Sub End If If tbnhap.Text = " Off." Then tbnhap.Text = " On." Exit Sub End If If tbnhap.Text = " On." Then tbnhap.Text = "Change SIM PIN Code" Exit Sub End If 'vao menu con cua muc Set time format If tbnhap.Text = "24-hour?" Then tbnhap.Text = "12-hour?" Exit Sub End If If tbnhap.Text = "12-hour?" Then tbnhap.Text = "24-hour?" Exit Sub End If 'vao menu cua muc Select Keypad tone If tbnhap.Text = "Single Tone" Then tbnhap.Text = "Normal Tones" Exit Sub End If If tbnhap.Text = "No Tones" Then tbnhap.Text = "Single Tone" Exit Sub End If If tbnhap.Text = "Normal Tones" Then tbnhap.Text = "No Tones" Exit Sub End If 'vao menu con cua muc Phone Status If tbnhap.Text = "Master Reset" Then tbnhap.Text = "Status Review" Exit Sub End If If tbnhap.Text = "Master Clear" Then tbnhap.Text = "Master Reset" Exit Sub End If If tbnhap.Text = "Status Review" Then tbnhap.Text = "Master Clear" Exit Sub End If 'phan xu ly cua menu Network Selection If tbnhap.Text = "Find New Network" Then tbnhap.Text = "Preferred Networks" Exit Sub End If If tbnhap.Text = "Preferred Networks" Then tbnhap.Text = "Network Search" Exit Sub End If If tbnhap.Text = "Network Search" Then tbnhap.Text = "Available Networks" Exit Sub End If If tbnhap.Text = "Available Networks" Then tbnhap.Text = " Change Band" Exit Sub End If If tbnhap.Text = " Change Band" Then tbnhap.Text = "Find New Network" Exit Sub End If 'vao menu con cua Change Band If tbnhap.Text = "Change to 1800" Then tbnhap.Text = "Change to 900" Exit Sub End If If tbnhap.Text = "Change to 900" Then tbnhap.Text = "Change to 900/1800" Exit Sub End If If tbnhap.Text = "Change to 900/1800" Then tbnhap.Text = "Change to 1800" Exit Sub End If 'vao menu con cua muc Available Networks If tbnhap.Text = "Register Now" Then tbnhap.Text = "Make Preferred" Exit Sub End If If tbnhap.Text = "Make Preferred" Then tbnhap.Text = "Register Now" Exit Sub End If 'vao menu con cua muc Network Search If tbnhap.Text = "Registration Preferences" Then tbnhap.Text = "Frequency of Search" Exit Sub End If If tbnhap.Text = "Frequency of Search" Then tbnhap.Text = "Registration Preferences" Exit Sub End If 'vao menu con cua muc "Registration Preferences If tbnhap.Text = "Manual Search Mode" Then tbnhap.Text = "Automatic Search Mode" Exit Sub End If If tbnhap.Text = "Automatic Search Mode" Then tbnhap.Text = "Manual Search Mode" Exit Sub End If 'vao menu con cua muc Frequency If tbnhap.Text = "Continuous Search" Then tbnhap.Text = "Fast Search" Exit Sub End If If tbnhap.Text = "Fast Search" Then tbnhap.Text = "Medium Search" Exit Sub End If If tbnhap.Text = "Medium Search" Then tbnhap.Text = "Slow Search" Exit Sub End If If tbnhap.Text = "Slow Search" Then tbnhap.Text = "Continuous Search" Exit Sub End If 'vao menu con cua muc Preferred networks If tbnhap.Te