'***** THU TUC GHI DE KHI TRUNG VI TRI *****
Private Sub OVERWRITE(st As String, nu As String, lo As Integer)
Dim j As Integer
Dim news As entry
Dim banghi As Byte
If addentrylist = True Then
Open filefixed For Random As #1 Len = Len(news)
addentrylist = False
Else
Open filename For Random As #1 Len = Len(news)
End If
banghi = LOF(1) \ Len(news)
For j = 1 To banghi
Get #1, j, news
If news.location = lo Then
news.location = lo
news.number = nu
news.name = st
Put #1, j, news
tbnhap.Text = "Stored" & Str(lo)
Exit For
End If
Next j
Close #1
End Sub
'****** THU TUC TIM MOT MUC THEO VI TRI *****
Private Sub find_location(so As Integer)
Dim news As entry
Dim news1 As entry
Dim j As Integer
Dim banghi As Byte
Dim i As Integer
'found = True
Select Case prevent
Case 1
Open filename For Random As #1 Len = Len(news)
Case 2, 3
Open filename2 For Random As #1 Len = Len(news)
Case 4
tbnhap.Text = "No Number Stored"
Exit Sub
End Select
banghi = LOF(1) \ Len(news)
If banghi = 0 Then
tbnhap.Text = "No Numbers Stored"
Close #1
Exit Sub
End If
If so = 0 Then
Get #1, 1, news
i = news.location
For j = 2 To banghi
Get #1, j, news1
If i > news1.location Then
i = news1.location
vitri = j
Else
vitri = i
End If
Next j
found = True
flag = True
Get #1, vitri, news
st1 = news.name
tbnhap.Text = news.name & vbCrLf & news.number
Close #1
Exit Sub
Else
For j = 1 To banghi
Get #1, j, news
If so = news.location Then
found = True
vitri = j
Exit For
Else
found = False
End If
Next j
If found = True Then
st1 = news.name
tbnhap.Text = news.name & vbCrLf & news.number
Else
tbnhap.Text = "Location Empty"
End If
End If
flag = True
Close #1
End Sub
'****** THU TUC SUA DOI MOT MUC ***********
Private Sub modify(ten As String, so As String, cho As Integer)
Dim news As entry
Dim banghi As Byte
Dim j As Integer
If editentrylist = True Then
Open filefixed For Random As #1 Len = Len(news)
Else
Open filename For Random As #1 Len = Len(news)
End If
Get #1, cho, news
If ten <> "" Then
If so <> "" Then
news.name = ten
news.number = so
Put #1, cho, news
Close #1
Else
news.name = ten
Put #1, cho, news
Close #1
End If
Else
If so <> "" Then
news.number = so
Put #1, cho, news
Close #1
Else
Close #1
End If
End If
If editentrylist = True Then
editentrylist = False
listdial = False
End If
End Sub
'****** THU TUC XOA MOT MUC ************
Private Sub erased(cho As Integer)
Dim news As entry
Dim news1 As entry
Dim banghi As Byte
Dim j As Byte
Dim i As Integer
If eraseentrylist = True Then
Open filefixed For Random As #1 Len = Len(news)
Else
Open filename For Random As #1 Len = Len(news)
End If
Open filename1 For Random As #2 Len = Len(news1)
banghi = LOF(1) \ Len(news)
For j = 1 To banghi
If j <> cho Then
Get #1, j, news
Put #2, j, news
Else
i = news.location
Exit For
End If
Next j
Do While j < banghi
Get #1, j + 1, news
Put #2, j, news
j = j + 1
Loop
tbnhap.Text = "Erased"
Close #1
Close #2
If eraseentrylist = True Then
Kill filefixed
Name filename1 As filefixed
eraseentrylist = False
listdial = False
Else
Kill filename
Name filename1 As filename
End If
End Sub
'***** THU TUC XU LY CUA PHAN PREVENT ACCESS *******
Private Sub prevent_access(k As Integer)
Dim news As entry
Dim news1 As entry
Dim banghi As Byte
Dim j As Integer
Dim i As Integer
Open filename For Random As #1 Len = Len(news)
Open filename2 For Random As #2 Len = Len(news)
banghi = LOF(1) \ Len(news)
i = 0
Select Case k
Case 1, 4
Close #1
Close #2
Exit Sub
Case 2
For j = 1 To banghi
Get #1, j, news
If news.location < 100 Then
i = i + 1
Put #2, i, news
End If
Next j
Close #1
Open filename1 For Random As #3 Len = Len(news)
For j = 1 To i
Get #2, j, news
Put #3, j, news
Next j
Close #2
Close #3
Kill filename2
Name filename1 As filename2
Case 3
For j = 1 To banghi
Get #1, j, news
If news.location > 100 Then
i = i + 1
Put #2, i, news
End If
Next j
Close #1
Open filename1 For Random As #3 Len = Len(news)
For j = 1 To i
Get #2, j, news
Put #3, j, news
Next j
Close #2
Close #3
Kill filename2
Name filename1 As filename2
End Select
End Sub
'***** THU TUC KHI PHIM BI MAT TIEU DIEM***
Private Sub so_LostFocus(Index As Integer)
i = 0
End Sub
'QUAY SO CHI VOI MOT PHIM
Private Sub onetouch(vitri As Integer)
Dim news As entry
Dim j As Byte
Dim banghi As Byte
Select Case onetouchof
Case 1, 2
Open filename For Random As #1 Len = Len(news)
Case 3
Open filefixed For Random As #1 Len = Len(news)
End Select
If onetouchof = 2 Then
vitri = vitri + 100
End If
banghi = LOF(1) \ Len(news)
For j = 1 To banghi
Get #1, j, news
If news.location = vitri Then
tbnhap.Text = news.number
Exit For
End If
Next j
Close #1
End Sub
'DANH SACH SO CO DINH
Private Sub fixeddiallist()
Dim news As entry
Dim banghi As Byte
Dim i As Integer
Dim j As Integer
Open filefixed For Random As #1 Len = Len(news)
found = False
banghi = LOF(1) \ Len(news)
If banghi = 0 Then
tbnhap.Text = "List Empty"
Else
If banghi = 1 Then
Get #1, 1, news
vitri = 1
Else
Get #1, 1, news
i = news.location
For j = 2 To banghi
Get #1, j, news
If i > news.location Then
i = news.location
vitri = j
Else
vitri = i
End If
Next j
End If
listdial = True
Get #1, vitri, news
st1 = news.name
tbnhap.Text = news.name & vbCrLf & news.number
End If
Close #1
End Sub
'XU LY CUA BO DEM THOI GIAN
Private Sub Timer1_Timer()
Dim j As Integer
Dim i As Integer
Dim ch As String
Dim networks As netselect
If formattime = False Then
Label2.Caption = Format(Now, "medium time")
Else
Label2.Caption = Format(Now, "short time")
End If
If Left(tbnhap.Text, 11) = "Range 1-100" Or Left(tbnhap.Text, 13) = "Range 101-255" Or Left(tbnhap.Text, 10) = "Range 1-40" Then
danhso = True
tbnhap.Text = "Enter Location!" & vbCrLf
Exit Sub
End If
If Left(tbnhap.Text, 6) = " Range" Then
danhso = True
tbnhap.Text = " Enter Location" & vbCrLf
Exit Sub
End If
If tbnhap.Text = "Location Empty" Then
'cancle = True
danhso = False
tbnhap.Text = "Personal Number"
Exit Sub
End If
If Right(tbnhap.Text, Len("Unused Locations")) = "Unused Locations" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If tbnhap.Text = "Restricted" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If tbnhap.Text = "Completed" Then
tbnhap.Text = "Menu"
danhso = True
Exit Sub
End If
If tbnhap.Text = "Calling" Then
Timer1.Interval = 3000
If cancall = True Then
tbnhap.Text = "Connecting Failed"
Image2.Visible = False
cancall = False
Exit Sub
End If
tbnhap.Text = "Connected"
Exit Sub
End If
If tbnhap.Text = "Connected" Then
tbnhap.Text = "End Call?"
found = False
Exit Sub
End If
If Left(tbnhap.Text, 6) = "Erased" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If Left(tbnhap.Text, 6) = "Stored" Then
tbnhap.Text = "Menu"
Exit Sub
End If
If tbnhap.Text = "Range 1-24" Then
cancle = False
danhso = True
tbnhap.Text = "Enter Time" & vbCrLf
Exit Sub
End If
If tbnhap.Text = "Invalid Format" Then
cancle = False
danhso = True
tbnhap.Text = "Enter Date" & vbCrLf
Exit Sub
End If
If tbnhap.Text = "Not Match" Then
danhso = True
tbnhap.Text = "Unlock Code" & vbCrLf
Exit Sub
End If
If tbnhap.Text = " Not Match" Then
danhso = True
tbnhap.Text = "Old Code" & vbCrLf
Exit Sub
End If
If tbnhap.Text = "Not Match." Then
danhso = True
tbnhap.Text = "Enter PIN2 Code" & vbCrLf
Exit Sub
End If
If tbnhap.Text = " Not Match." Then
danhso = True
tbnhap.Text = "Enter Barring Password" & vbCrLf
Exit Sub
End If
If tbnhap.Text = "Finding" Then
tbnhap.Text = "Failed"
Exit Sub
End If
If tbnhap.Text = "Failed" Then
tbnhap.Text = "Network Selection"
Exit Sub
End If
If tbnhap.Text = "Enter 4 Digit" Then
tbnhap.Text = "New Code" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = "Invalid Code" Then
tbnhap.Text = "Current Code" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = " Invalid Code" Then
tbnhap.Text = "Current PIN2 Code" & vbCrLf
danhso = True
End If
If tbnhap.Text = "Invalid Password" Then
tbnhap.Text = " Current Password" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = " Enter 4 Digit" Then
tbnhap.Text = "New Barring Password" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = "Enter 4-8 Digit" Then
tbnhap.Text = "New PIN2 Code" & vbCrLf
danhso = True
End If
If tbnhap.Text = "Enter 6 Digit" Then
tbnhap.Text = "New Security Code" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = " Failed" Then
tbnhap.Text = "Enter Security Code" & vbCrLf
danhso = True
Exit Sub
End If
If tbnhap.Text = "Invalid Time" Then
tbnhap.Text = "Enter Time" & vbCrLf
danhso = False
cancle = False
Exit Sub
End If
If tbnhap.Text = "Invalid Date" Then
tbnhap.Text = "Enter Date" & vbCrLf
cancle = False
danhso = False
Exit Sub
End If
If tbnhap.Text = "Sending" Then
If cancall = True Then
tbnhap.Text = "Connecting Failed"
Image2.Visible = False
cancall = False
Else
tbnhap.Text = " Connected"
End If
Exit Sub
End If
If tbnhap.Text = " Connected" Then
Image2.Visible = False
tbnhap.Text = "Completed"
Exit Sub
End If
If tbnhap.Text = "Deleted" Then
tbnhap.Text = "Messages"
cancle = True
danhso = False
Exit Sub
End If
If tbnhap.Text = "Invalid Msg Number" Then
tbnhap.Text = "Messages"
cancle = True
danhso = False
Exit Sub
End If
'xu ly khi lam trong muc available network
If tbnhap.Text = "Wait.." Then
tbnhap.Text = "Scanning"
Exit Sub
End If
If tbnhap.Text = "Scanning" Then
Open filename5 For Random As #1 Len = Len(networks)
Get #1, 1, networks
tam1 = 1
tbnhap.Text = networks.mang
st = tbnhap.Text
Close #1
Exit Sub
End If
If tbnhap.Text = "Register" Then
tbnhap.Text = "Completed"
Exit Sub
End If
If tbnhap.Text = "Registerring" Then
tbnhap.Text = "Failed"
Exit Sub
End If
End Sub
'THU TUC SAP THU TU
Private Sub sapthutu()
Dim news As entry
Dim news1 As entry
Dim j As Integer
Dim k As Integer
Dim banghi As Byte
Dim ch As String
Dim ch1 As String
Dim so As String
Dim vitri As Integer
Open filename For Random As #1 Len = Len(news)
Open filename For Random As #2 Len = Len(news1)
banghi = LOF(1) \ Len(news)
For j = 2 To banghi
Get #1, j, news
ch = news.name
so = news.number
vitri = news.location
For k = j - 1 To 1 Step -1
Get #2, k, news1
ch1 = news1.name
If StrComp(ch, ch1) = 1 Or StrComp(ch, ch1) = 0 Then
Exit For
End If
news.name = news1.name
news.number = news1.number
news.location = news1.location
Put #1, k + 1, news
Next k
news.name = ch
news.number = so
news.location = vitri
Put #1, k + 1, news
Next j
Close #1
Close #2
End Sub
'CHUYEN MOT MUC
Private Sub menu_downswitchentry()
Dim news As entry
Dim banghi As Byte
Select Case prevent
Case 1
Open filename For Random As #1 Len = Len(news)
Case 2, 3
Open filename2 For Random As #1 Len = Len(news)
End Select
banghi = LOF(1) \ Len(news)
menucon = True
vitri = vitri + 1
If vitri <= banghi Then
Get #1, vitri, news
st1 = news.name
st = news.name
nu = news.number
tbnhap.Text = st & vbCrLf & nu
Close #1
Exit Sub
Else
vitri = 1
Get #1, vitri, news
st = news.name
st1 = news.name
nu = news.number
tbnhap.Text = st & vbCrLf & nu
Close #1
End If
End Sub
'CHUYEN MOT MUC
Private Sub menu_upswitchentry()
Dim news As entry
Dim banghi As Byte
Select Case prevent
Case 1
Open filename For Random As #1 Len = Len(news)
Case 2, 3
Open filename2 For Random As #1 Len = Len(news)
End Select
banghi = LOF(1) \ Len(news)
menucon = True
vitri = vitri - 1
cancle = True
danhso = False
If vitri >= 1 Then
Get #1, vitri, news
st1 = news.name
st = news.name
nu = news.number
tbnhap.Text = st & vbCrLf & nu
Close #1
Exit Sub
Else
vitri = banghi 'vitri + 1
Get #1, vitri, news
st1 = news.name
st = news.name
nu = news.number
tbnhap.Text = st & vbCrLf & nu
Close #1
End If
End Sub
'DI CHUYEN GIUA CAC MUC TRONG DANH SACH SO CO DINH
Private Sub menu_downlistdial()
Dim news As entry
Dim banghi As Byte
Open filefixed For Random As #1 Len = Len(news)
banghi = LOF(1) \ Len(news)
If banghi = 0 Then
listdial = False
Close #1
Exit Sub
End If
vitri = vitri + 1
If vitri <= banghi Then
Get #1, vitri, news
tbnhap.Text = news.name & vbCrLf & news.number
Else
vitri = 1
Get #1, vitri, news
tbnhap.Text = news.name & vbCrLf & news.number
End If
Close #1
End Sub
'DI CHUYEN GIUA CAC MUC TRONG DANH SACH SO CO DINH
Private Sub menu_uplistdial()
Dim news As entry
Dim banghi As Byte
Open filefixed For Random As #1 Len = Len(news)
banghi = LOF(1) \ Len(news)
If banghi = 0 Then
listdial = False
Close #1
Exit Sub
End If
vitri = vitri - 1
If vitri >= 1 Then
Get #1, vitri, news
tbnhap.Text = news.name & vbCrLf & news.number
Else
vitri = banghi
Get #1, vitri, news
tbnhap.Text = news.name & vbCrLf & news.number
End If
Close #1
End Sub
'THU TUC KIEM TRA BO NHO
Private Sub check(so As Boolean)
Dim news As entry
Dim banghi As Byte
Dim j As Integer
Dim max As Integer
Dim max1 As Integer
Open filename For Random As #1 Len = Len(news)
banghi = LOF(1) \ Len(news)
For j = 1 To banghi
Get #1, j, news
If news.location < 100 Then
max = max + 1
Else
max1 = max1 + 1
End If
Next j
If so = 0 Then
tbnhap.Text = (100 - max) & " Unused Locations"
Else
tbnhap.Text = (155 - max1) & " Unused Locations"
End If
Close #1
End Sub
'DI CHYEN GIUA DANH SACH CAC MANG UU TIEN
Private Sub preferredlist(so As Integer, chuoi As String)
Dim networks As netselect
Dim banghi As Byte
Dim j As Integer
Open filename6 For Random As #1 Len = Len(networks)
Open filetam For Random As #2 Len = Len(networks)
banghi = LOF(1) \ Len(networks)
If banghi = 0 Then
networks.mang = chuoi
Put #2, 1, networks
Else
For j = 1 To banghi
If so <> j Then
Get #1, j, networks
Put #2, j, networks
Else
networks.mang = chuoi
Put #2, j, networks
Exit For
End If
Next j
Do While j <= banghi
Get #1, j, networks.mang
Put #2, j + 1, networks.mang
j = j + 1
Loop
End If
If lo > banghi Then
networks.mang = st
Put #2, banghi + 1, networks
End If
Close #1
Close #2
Kill filename6
Name filetam As filename6
End Sub
'THU TUC DI CHUYEN MOT MANG UU TIEN DEN VI TRI MOI
Private Sub movenew(oldlo As Integer, newlo As Integer)
Dim networks As netselect
Dim i As Integer
Dim banghi As Integer
Dim chuoi As String
Open filename6 For Random As #1 Len = Len(networks)
Open filetam For Random As #2 Len = Len(networks)
banghi = LOF(1) \ Len(networks)
If oldlo = newlo Then
Close #1
Close #2
tbnhap.Text = "Completed"
Exit Sub
End If
If newlo >= banghi Then
For i = 1 To oldlo - 1
Get #1, i, networks
Put #2, i, networks
Next i
Get #1, oldlo, networks
chuoi = networks.mang
For i = oldlo + 1 To banghi
Get #1, i, networks
Put #2, i - 1, networks
Next i
networks.mang = chuoi
Put #2, banghi, networks.mang
End If
If oldlo < newlo And newlo < banghi Then
For i = 1 To oldlo - 1
Get #1, i, networks
Put #2, i, networks
Next i
Get #1, oldlo, networks
chuoi = networks.mang
For i = oldlo + 1 To newlo
Get #1, i, networks
Put #2, i - 1, networks
Next i
networks.mang = chuoi
Put #2, newlo, networks.mang
i = newlo + 1
Do While i <= banghi
Get #1, i, networks
Put #2, i, networks
i = i + 1
Loop
End If
If oldlo > newlo Then
For i = 1 To newlo - 1
Get #1, i, networks
Put #2, i, networks
Next i
Get #1, oldlo, networks
Put #2, newlo, networks
For i = newlo To oldlo - 1
Get #1, i, networks
Put #2, i + 1, networks
Next i
i = oldlo + 1
Do While i <= banghi
Get #1, i, networks
Put #2, i, networks
i = i + 1
Loop
End If
Close #1
Close #2
Kill filename6
Name filetam As filename6
tbnhap.Text = "Completed"
End Sub
'THU TUC XOA MOT MANG UU TIEN
Private Sub xoa(loca As Integer)
Dim networks As netselect
Dim j As Integer
Dim i As Integer
Dim banghi As Byte
Open filename6 For Random As #1 Len = Len(networks)
Open filetam For Random As #2 Len = Len(networks)
banghi = LOF(1) \ Len(networks)
For j = 1 To banghi
If j <> loca Then
Get #1, j, networks
Put #2, j, networks
Else
Exit For
End If
Next j
Do While j < banghi
Get #1, j + 1, networks
Put #2, j, networks
j = j + 1
Loop
Close #1
Close #2
Kill filename6
Name filetam As filename6
tbnhap.Text = "Completed"
End Sub
'**** Ham dung phim so trong menu Quick Access *****
Private Function clickquickaccess(so As Integer) As Integer
Dim menuaccess As access
Open filename3 For Random As #1 Len = Len(menuaccess)
Get #1, so, menuaccess
tbnhap.Text = Trim(menuaccess.feature)
clickquickaccess = menuaccess.thutu
'orderinquick = 1
Close #1
End Function
'**** Thu tuc dung phim trong menu Message list
Private Sub clickmessage(so As Integer)
Dim message As messages
Dim banghi As Byte
Open filename4 For Random As #1 Len = Len(message)
banghi = LOF(1) \ Len(message)
If banghi < so Then
tbnhap.Text = "Invalid Msg Number"
messagelist = False
Else
Get #1, so, message
tbnhap.Text = Trim(message.tin)
messagenumber = 2
End If
Close #1
End Sub
Private Sub store_message()
Dim message As messages
Dim banghi As Byte
Open filename4 For Random As #1 Len = Len(message)
banghi = LOF(1) \ Len(message)
If taomoi = True Then
banghi = banghi + 1
message.tin = st
message.sothutu = banghi 'messagenumber
Put #1, banghi, message 'messagenumber
Else
Get #1, messagenumber, message
message.tin = st
Put #1, messagenumber, message
End If
tbnhap.Text = "Stored"
'message1 = False
Close #1
End Sub
Private Sub delete_message()
Dim message As messages
Dim banghi As Byte
Dim j As Integer
Open filename4 For Random As #1 Len = Len(message)
banghi = LOF(1) \ Len(message)
Open filetam For Random As #2 Len = Len(message)
For j = 1 To banghi
If j <> messagenumber Then
Get #1, j, message
Put #2, j, message
Else
Exit For
End If
Next j
Do While j < banghi
Get #1, j + 1, message
Put #2, j, message
j = j + 1
Loop
tbnhap.Text = "Deleted"
Close #1
Kill filename4
Close #2
Name filetam As filename4
End Sub
'KHOI TAO CONTROL
Private Sub UserControl_Initialize()
Dim news As entry
Dim banghi As Integer
Dim menuaccess As access
Dim k As Integer
Dim message As messages
Dim networks As netselect
Label2.Caption = Left(Time, 5)
tbnhap.Text = "Menu"
unlocked = "1234"
securitycode = "000000"
voicemailnumber = "4321"
servicecentre = "130"
pin2code = "13579"
expiryperiod = "24"
barpassword = "6789"
volume.Picture = volume1(2).Picture
vol = 3
prevent = 1
Open filename3 For Random As #1 Len = Len(menuaccess)
menuaccess.feature = "Find Name?"
menuaccess.thutu = 1
Put #1, 1, menuaccess
menuaccess.feature = "Add to SIM?"
menuaccess.thutu = 4
Put #1, 2, menuaccess
menuaccess.feature = "Call Voicemail?"
menuaccess.thutu = 12
Put #1, 3, menuaccess
menuaccess.feature = "Battery Meter?"
menuaccess.thutu = 11
Put #1, 4, menuaccess
menuaccess.feature = "Show Time/Date?"
menuaccess.thutu = 8
Put #1, 5, menuaccess
menuaccess.feature = "Adjust Ring?"
menuaccess.thutu = 6
Put #1, 6, menuaccess
menuaccess.feature = "Switch Line 1/2?"
menuaccess.thutu = 7
Put #1, 7, menuaccess
menuaccess.feature = "Vibrate On/Off?"
menuaccess.thutu = 9
Put #1, 8, menuaccess
menuaccess.feature = "Change Band?"
menuaccess.thutu = 10
Put #1, 9, menuaccess
Close #1
Open filename For Random As #1 Len = Len(news)
news.name = "NHA"
news.number = "8402631"
news.location = 1
Put #1, 1, news
news.name = "HUNG"
news.number = "8570726"
news.location = 101
Put #1, 2, news
Close #1
Open filename4 For Random As #2 Len = Len(message)
message.tin = "HELLO"
message.sothutu = 1
Put #2, 1, message
Close #2
Open filename5 For Random As #1 Len = Len(networks)
networks.mang = "FPT"
Put #1, 1, networks
networks.mang = "Phuong Nam"
Put #1, 2, networks
networks.mang = "SaigonNet"
Put #1, 3, networks
networks.mang = "VNN"
Put #1, 4, networks
Close #1
Open filefixed For Random As #1 Len = Len(news)
banghi = LOF(1) \ Len(news)
If banghi = 0 Then
news.name = "NHA"
news.number = "8402631"
news.location = 1
Put #1, 1, news
End If
Close #1
Open filename6 For Random As #1 Len = Len(networks)
banghi = LOF(1) \ Len(networks)
If banghi = 0 Then
networks.mang = "FPT"
Put #1, 1, networks
End If
Close #1
End Sub
'KHI CONTROL KET THUC
Private Sub UserControl_Terminate()
Kill filename
Kill filename3
Kill filename4
Kill filename5
Kill filename6
Kill filefixed
End Sub