Attribute VB_Name = "modSettings" Public Function refreshSettings() On Error Resume Next 'text/caption frmSettings.Label1.Caption = locale("tab_main") frmSettings.Label2.Caption = locale("tab_limits") frmSettings.Label3.Caption = locale("tab_filter") frmSettings.Label4.Caption = locale("tab_habbos") frmSettings.Label5.Caption = locale("tab_guestrooms") frmSettings.Label6.Caption = locale("tab_publicrooms") frmSettings.Label7.Caption = locale("tab_ranks") frmSettings.Label8.Caption = locale("tab_club") frmSettings.Label9.Caption = locale("tab_console") 'text/caption End Function Public Function refreshtab_main() On Error Resume Next 'load frmSettings.Pictab_main.Top = 1440 frmSettings.Pictab_main.Left = 2160 frmSettings.Pictab_main.Visible = True frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = True frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_main") frmSettings.mainLabel1 = locale("mainLabel1") frmSettings.mainLabel2 = locale("mainLabel2") frmSettings.mainLabel3 = locale("mainLabel3") frmSettings.mainCheck1.Caption = locale("mainCheck1") frmSettings.mainCheck2.Caption = locale("mainCheck2") frmSettings.mainCheck3.Caption = locale("mainCheck3") frmSettings.mainCheck4.Caption = locale("mainCheck4") frmSettings.mainCheck5.Caption = locale("mainCheck5") frmSettings.mainCommand1.Caption = locale("savebutton") frmSettings.mainCommand2.Caption = locale("restorebutton") 'text/caption 'back color frmSettings.Pictab_main.BackColor = RGB(101, 164, 200) frmSettings.mainCheck1.BackColor = RGB(101, 164, 200) frmSettings.mainCheck2.BackColor = RGB(101, 164, 200) frmSettings.mainCheck3.BackColor = RGB(101, 164, 200) frmSettings.mainCheck4.BackColor = RGB(101, 164, 200) frmSettings.mainCheck5.BackColor = RGB(101, 164, 200) 'back color 'data frmSettings.mainText1.Text = ReadINI("server", "port", SettingIni) frmSettings.mainText2.Text = ReadINI("server", "connection_limit", SettingIni) frmSettings.mainCheck1.Value = Val(ReadINI("config", "bobba_filter", SettingIni)) frmSettings.mainCheck2.Value = Val(ReadINI("config", "console", DBP & "configuration\settings.ini")) If Split(ReadINI("config", "welcome_message", SettingIni), ",")(0) = "1" Then If InStr(ReadINI("config", "welcome_message", SettingIni), ",") <> 0 Then frmSettings.mainText3.Text = Split(ReadINI("config", "welcome_message", SettingIni), ",", 2)(1) frmSettings.mainText3.Enabled = True frmSettings.mainCheck4.Value = 1 Else If InStr(ReadINI("config", "welcome_message", SettingIni), ",") <> 0 Then frmSettings.mainText3.Text = Split(ReadINI("config", "welcome_message", SettingIni), ",", 2)(1) frmSettings.mainText3.Enabled = False frmSettings.mainCheck4.Value = 0 End If frmSettings.mainCheck5.Value = Val(ReadINI("config", "freehcclothes", SettingIni)) 'data End Function Public Function refreshtab_limits() On Error Resume Next 'load frmSettings.Pictab_limits.Top = 1440 frmSettings.Pictab_limits.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = True frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = True frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_limits") frmSettings.limitsLabel1.Caption = locale("limitslabel1") frmSettings.limitsLabel2.Caption = locale("limitslabel2") frmSettings.limitsLabel3.Caption = locale("limitslabel3") frmSettings.limitsLabel4.Caption = locale("limitslabel4") frmSettings.limitsLabel5.Caption = locale("limitslabel5") frmSettings.limitsCommand1.Caption = locale("savebutton") frmSettings.limitsCommand2.Caption = locale("restorebutton") 'text/caption 'back color 'back color 'data frmSettings.limitsText1.Text = ReadINI("config", "maxroomsperuser", SettingIni) frmSettings.limitsText2.Text = ReadINI("config", "maxguestroomsinlist", SettingIni) frmSettings.limitsText3.Text = ReadINI("config", "maxfavouriterooms", SettingIni) frmSettings.limitsText4.Text = ReadINI("config", "maxrollersinroom", SettingIni) frmSettings.limitsText5.Text = ReadINI("config", "maxpetsinroom", SettingIni) 'data End Function Public Function refreshtab_filter() On Error Resume Next 'load frmSettings.Pictab_filter.Top = 1440 frmSettings.Pictab_filter.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = True frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = True frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_filter") frmSettings.filterLabel1.Caption = locale("filterLabel1") frmSettings.filterLabel2.Caption = locale("filterLabel2") frmSettings.filterLabel3.Caption = locale("filterLabel3") frmSettings.filterCommand1.Caption = locale("filterCommand1") 'text/caption 'back color frmSettings.Pictab_filter.BackColor = RGB(101, 164, 200) 'back color 'data BobbaList = Split(FSO.OpenTextFile(DBP & "configuration\bobbafilter.ini", ForReading).ReadAll, vbCrLf) frmSettings.filterList1.Clear For a = 0 To UBound(BobbaList) If BobbaList(a) <> "" Then frmSettings.filterList1.AddItem BobbaList(a) Next a frmSettings.filterText1.Text = ReadINI("config", "replacement", SettingIni) frmSettings.filterCommand1.Enabled = False 'data End Function Public Function refreshtab_habbos() On Error Resume Next 'load frmSettings.Pictab_habbos.Top = 1440 frmSettings.Pictab_habbos.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = True frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = True frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_habbos") frmSettings.habbosLabel1.Caption = locale("habbosLabel1") frmSettings.habbosLabel2.Caption = locale("habbosLabel2") frmSettings.habbosLabel3.Caption = locale("habbosLabel3") frmSettings.habbosLabel4.Caption = locale("habbosLabel4") frmSettings.habbosLabel5.Caption = locale("habbosLabel5") frmSettings.habbosLabel6.Caption = locale("habbosLabel6") frmSettings.habbosLabel7.Caption = locale("habbosLabel7") frmSettings.habbosLabel8.Caption = locale("habbosLabel8") frmSettings.habbosLabel9.Caption = locale("habbosLabel9") frmSettings.habbosText1.Text = "" frmSettings.habbosText2.Text = "" frmSettings.habbosText3.Text = "" frmSettings.habbosText4.Text = "" frmSettings.habbosText5.Text = "" frmSettings.habbosText6.Text = "" frmSettings.habbosText7.Text = "" frmSettings.habbosCombo1.Text = "Ranks" frmSettings.habbosCommand1.Caption = locale("savebutton") frmSettings.habbosCommand2.Caption = locale("restorebutton") 'text/caption 'data frmSettings.habbosList1.Clear For Each fol In FSO.GetFolder(DBP & "habbos").SubFolders If FSO.FileExists(fol & "\name.txt") = True Then frmSettings.habbosList1.AddItem FSO.OpenTextFile(fol & "\name.txt", ForReading).ReadAll End If Next 'data End Function Public Function refreshtab_guest() On Error Resume Next 'load frmSettings.Pictab_guest.Top = 1440 frmSettings.Pictab_guest.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = True frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = True frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_guestrooms") frmSettings.guestLabel1.Caption = locale("guestLabel1") frmSettings.guestLabel2.Caption = locale("guestLabel2") 'text/caption 'back color frmSettings.Pictab_guest.BackColor = RGB(101, 164, 200) 'back color 'data Call refreshtab_guestroom 'data End Function Public Function refreshtab_guestroom() On Error Resume Next 'load frmSettings.Pictab_guest.Top = 1440 frmSettings.Pictab_guest.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = True frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = True frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False frmSettings.Pictab_guestroom.Visible = True frmSettings.Pictab_guestcategories.Visible = False frmSettings.guestLabel1.Font.Italic = True frmSettings.guestLabel2.Font.Italic = False 'load 'text/caption frmSettings.guestroomLabel1.Caption = locale("guestroomLabel1") frmSettings.guestroomLabel2.Caption = locale("guestroomLabel2") frmSettings.guestroomLabel3.Caption = locale("guestroomLabel3") frmSettings.guestroomLabel4.Caption = locale("guestroomLabel4") frmSettings.guestroomLabel5.Caption = locale("guestroomLabel5") frmSettings.guestroomLabel6.Caption = locale("guestroomLabel6") frmSettings.guestroomText1.Text = "" frmSettings.guestroomText2.Text = "" frmSettings.guestroomText3.Text = "" frmSettings.guestroomText4.Text = "" frmSettings.guestroomText5.Text = "" frmSettings.guestroomCommand1.Caption = locale("savebutton") frmSettings.guestroomCommand2.Caption = locale("restorebutton") 'text/caption 'back color frmSettings.Pictab_guestroom.BackColor = RGB(101, 164, 200) 'back color 'data frmSettings.guestroomList1.Clear For Each fol In FSO.GetFolder(DBP & "privaterooms").SubFolders Dim RoomID As String Roomi = Split(fol, "\") For a = 1 To UBound(Roomi) RoomID = Roomi(a) Next a If FSO.FileExists(fol & "\deleted.txt") = False Then frmSettings.guestroomList1.AddItem RoomID & ") Name: " & FSO.OpenTextFile(fol & "\name.txt", ForReading).ReadAll & " # Owner: " & FSO.OpenTextFile(fol & "\owner.txt", ForReading).ReadAll Else 'Combo5.AddItem RoomID & " Name: " & FSO.OpenTextFile(fol & "\name.txt", ForReading).ReadAll & " Besitzer: " & FSO.OpenTextFile(fol & "\owner.txt", ForReading).ReadAll End If Next 'data End Function Public Function refreshtab_guestcategories() On Error Resume Next 'load frmSettings.Pictab_guest.Top = 1440 frmSettings.Pictab_guest.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = True frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = True frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False frmSettings.Pictab_guestroom.Visible = False frmSettings.Pictab_guestcategories.Visible = True frmSettings.guestLabel1.Font.Italic = False frmSettings.guestLabel2.Font.Italic = True 'load 'text/caption frmSettings.guestcategoriesLabel1.Caption = locale("guestcategoriesLabel1") frmSettings.guestcategoriesLabel2.Caption = locale("guestcategoriesLabel2") frmSettings.guestcategoriesLabel3.Caption = locale("guestcategoriesLabel3") frmSettings.guestcategoriesLabel4.Caption = locale("guestcategoriesLabel4") frmSettings.guestcategoriesCommand1.Caption = locale("savebutton") frmSettings.guestcategoriesCommand2.Caption = locale("restorebutton") 'text/caption 'back color frmSettings.Pictab_guestcategories.BackColor = RGB(101, 164, 200) For a = 0 To 9 frmSettings.allowtraden(a).BackColor = RGB(101, 164, 200) Next a 'back color 'data Dim Cat(0 To 9) As String Cat(0) = "SL" Cat(1) = "RL" Cat(2) = "PR" Cat(3) = "RQ" Cat(4) = "SV" Cat(5) = "Q]" Cat(6) = "R]" Cat(7) = "PL" Cat(8) = "RN" Cat(9) = "RR" For a = 0 To 9 frmSettings.catprop(a).Clear frmSettings.catprop(a).AddItem "0" frmSettings.catprop(a).AddItem "1" frmSettings.catprop(a).AddItem "2" frmSettings.catprop(a).Text = ReadINI("categories", Cat(a), DBP & "room_categories\categories.ini") frmSettings.catname(a).Text = locale("categorie_" & a + 1) If FSO.FileExists(DBP & "room_categories\allowtrade_" & Cat(a) & ".txt") = True Then frmSettings.allowtraden(a).Value = 1 End If Next a 'data End Function Public Function refreshtab_public() On Error Resume Next 'load frmSettings.Pictab_public.Top = 1440 frmSettings.Pictab_public.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = True frmSettings.Pictab_ranks.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = True frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_publicroom") 'frmSettings.guestLabel1.Caption = locale("guestLabel1") 'frmSettings.guestLabel2.Caption = locale("guestLabel2") 'text/caption 'back color frmSettings.Pictab_public.BackColor = RGB(101, 164, 200) 'back color 'data 'data End Function Public Function refreshtab_ranks() On Error Resume Next 'load frmSettings.Pictab_ranks.Top = 1440 frmSettings.Pictab_ranks.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = True frmSettings.Pictab_club.Visible = False frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = True frmSettings.Label8.Font.Italic = False frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_ranks") frmSettings.ranksLabel1.Caption = locale("ranksLabel1") frmSettings.ranksLabel2.Caption = locale("ranksLabel2") frmSettings.ranksLabel3.Caption = locale("ranksLabel3") frmSettings.ranksLabel4.Caption = locale("ranksLabel4") frmSettings.ranksCheck1.Caption = locale("ranksCheck1") frmSettings.ranksCheck2.Caption = locale("ranksCheck2") frmSettings.ranksCheck3.Caption = locale("ranksCheck3") frmSettings.ranksCheck4.Caption = locale("ranksCheck4") frmSettings.ranksCheck5.Caption = locale("ranksCheck5") frmSettings.ranksCommand1.Caption = locale("savebutton") frmSettings.ranksCommand2.Caption = locale("restorebutton") frmSettings.ranksText1.Text = "" frmSettings.ranksText2.Text = "" frmSettings.ranksCheck1.Value = 0 frmSettings.ranksCheck2.Value = 0 frmSettings.ranksCheck3.Value = 0 frmSettings.ranksCheck4.Value = 0 frmSettings.ranksCheck5.Value = 0 'text/caption 'back color frmSettings.Pictab_ranks.BackColor = RGB(101, 164, 200) frmSettings.ranksCheck1.BackColor = RGB(101, 164, 200) frmSettings.ranksCheck2.BackColor = RGB(101, 164, 200) frmSettings.ranksCheck3.BackColor = RGB(101, 164, 200) frmSettings.ranksCheck4.BackColor = RGB(101, 164, 200) frmSettings.ranksCheck5.BackColor = RGB(101, 164, 200) 'back color 'data ranks = Split(FSO.OpenTextFile(DBP & "configuration\ranks.ini", ForReading).ReadAll, vbCrLf) frmSettings.ranksCombo1.Clear For a = 0 To UBound(ranks) If ranks(a) <> "" Then frmSettings.ranksCombo1.AddItem ranks(a) Next a frmSettings.ranksCombo1.Text = "Ranks" frmSettings.ranksList1.Clear frmSettings.ranksList1.AddItem ":kick" frmSettings.ranksList1.AddItem ":voucher" frmSettings.ranksList1.AddItem ":shutup" frmSettings.ranksList1.AddItem ":hotelalert" frmSettings.ranksList1.AddItem ":roomunmute" frmSettings.ranksList1.AddItem ":takebadge" frmSettings.ranksList1.AddItem ":closeroom" frmSettings.ranksList1.AddItem ":infobus" frmSettings.ranksList1.AddItem ":superban" frmSettings.ranksList1.AddItem ":ban" frmSettings.ranksList1.AddItem ":credits" frmSettings.ranksList1.AddItem ":roomshutup" frmSettings.ranksList1.AddItem ":takecredits" frmSettings.ranksList1.AddItem ":deleteroom" frmSettings.ranksList1.AddItem ":openroom" frmSettings.ranksList1.AddItem ":changepassword" frmSettings.ranksList1.AddItem ":alert" frmSettings.ranksList1.AddItem ":whosonline" frmSettings.ranksList1.AddItem ":unmute" frmSettings.ranksList1.AddItem ":userdata" frmSettings.ranksList1.AddItem ":givebadge" frmSettings.ranksList1.AddItem ":unban" frmSettings.ranksList1.AddItem ":giverank" frmSettings.ranksList1.AddItem ":changemission" frmSettings.ranksList1.AddItem ":lockhotel" frmSettings.ranksList1.AddItem ":cleanhand" frmSettings.ranksList1.AddItem ":drink" frmSettings.ranksList1.AddItem ":refresh" frmSettings.ranksList1.AddItem ":offline" frmSettings.ranksList1.AddItem ":teleport" frmSettings.ranksList1.AddItem ":invisible" frmSettings.ranksList1.AddItem ":closeserver" frmSettings.ranksList1.AddItem ":restartserver" frmSettings.ranksList1.AddItem ":diving" frmSettings.ranksList1.AddItem ":userlockhelp" frmSettings.ranksList1.AddItem ":registration" frmSettings.ranksList1.AddItem ":ipcheck" frmSettings.ranksList1.AddItem ":unlock" frmSettings.ranksList2.Clear frmSettings.ranksList2.AddItem "Alert User" frmSettings.ranksList2.AddItem "Ban User" frmSettings.ranksList2.AddItem "Kick User" frmSettings.ranksList2.AddItem "Room Alert" frmSettings.ranksList2.AddItem "Room Kick" frmSettings.ranksList1.Enabled = False frmSettings.ranksList2.Enabled = False frmSettings.ranksText1.Enabled = False frmSettings.ranksText2.Enabled = False frmSettings.ranksCheck1.Enabled = False frmSettings.ranksCheck2.Enabled = False frmSettings.ranksCheck3.Enabled = False frmSettings.ranksCheck4.Enabled = False frmSettings.ranksCheck5.Enabled = False 'data End Function Public Function refreshtab_club() On Error Resume Next 'load frmSettings.Pictab_club.Top = 1440 frmSettings.Pictab_club.Left = 2160 frmSettings.Pictab_main.Visible = False frmSettings.Pictab_limits.Visible = False frmSettings.Pictab_filter.Visible = False frmSettings.Pictab_habbos.Visible = False frmSettings.Pictab_guest.Visible = False frmSettings.Pictab_public.Visible = False frmSettings.Pictab_ranks.Visible = False frmSettings.Pictab_club.Visible = True frmSettings.Label1.Font.Italic = False frmSettings.Label2.Font.Italic = False frmSettings.Label3.Font.Italic = False frmSettings.Label4.Font.Italic = False frmSettings.Label5.Font.Italic = False frmSettings.Label6.Font.Italic = False frmSettings.Label7.Font.Italic = False frmSettings.Label8.Font.Italic = True frmSettings.Label9.Font.Italic = False 'load 'text/caption frmSettings.title = locale("tab_club") frmSettings.clubLabel1.Caption = locale("clubLabel1") frmSettings.clubLabel2.Caption = locale("clubLabel2") frmSettings.clubLabel3.Caption = locale("clubLabel3") frmSettings.clubCommand1.Caption = locale("savebutton") frmSettings.clubCommand2.Caption = locale("restorebutton") 'text/caption 'back color frmSettings.Pictab_club.BackColor = RGB(101, 164, 200) 'back color 'data For a = 0 To 10 frmSettings.hcpresent(a).Text = ReadINI("HC", "present" & a + 1, DBP & "configuration\settings.ini") Next a 'End Load hcpresent -----> Club frmSettings.clubText1.Text = Mid(ReadINI("HC", "hcbadge", DBP & "configuration\settings.ini"), 2) frmSettings.clubText2.Text = Mid(ReadINI("HC", "hcbadge2", DBP & "configuration\settings.ini"), 2) 'data End Function