[HELP] How to use combo boxes

Ok so I was looking at halojunkies tut on making a rs client and I used the combo boxes Just cause i had FAWG and i didnt want to "manually right-click copy link location" and I followed everything he said But for some strange reason When pressed the play button, When i clicked the combo box it didnt show anything up.

Code

Code:

Private Sub Combo1_load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"               It continues till world 159
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
End Sub


Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If URL = "http://www.runescape.com/" Then Cancel = True
End Sub

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
StealRS2 Me
End Sub

WORLDS.BAS

Code:

'File generated by Freddy1990's Advanced World Generator

Function GetCount() As Integer
    GetCount = 159
End Function

Function GetPrefix(ByVal Server As Integer) As String
    Select Case Server
        Case 1: GetPrefix = "ul7"
        Case 2: GetPrefix = "ul8"
        Case 3: GetPrefix = "sl1"
        Case 4: GetPrefix = "po4"
        Case 5: GetPrefix = "po5"
        Case 6: GetPrefix = "sl10"
        Case 7: GetPrefix = "above2"
        Case 8: GetPrefix = "above3"
        Case 9: GetPrefix = "above4"
        Case 10: GetPrefix = "me5"
        Case 11: GetPrefix = "world11"
        Case 12: GetPrefix = "jolt9"
        Case 13: GetPrefix = "nl3"
        Case 14: GetPrefix = "nl4"
        Case 15: GetPrefix = "mn2"
        Case 16: GetPrefix = "mn3"
        Case 17: GetPrefix = "nav1"
        Case 18: GetPrefix = "nav2"
        Case 19: GetPrefix = "nl7"
        Case 20: GetPrefix = "nl8"
        Case 21: GetPrefix = "nl11"
        Case 22: GetPrefix = "nl1"
        Case 23: GetPrefix = "mn4"
        Case 24: GetPrefix = "mn5"
        Case 26: GetPrefix = "ul5"
        Case 27: GetPrefix = "nl5"
        Case 28: GetPrefix = "nl6"
        Case 29: GetPrefix = "ul6"
        Case 30: GetPrefix = "po7"
        Case 31: GetPrefix = "po8"
        Case 32: GetPrefix = "ul1"
        Case 33: GetPrefix = "at1"
        Case 34: GetPrefix = "at2"
        Case 35: GetPrefix = "at3"
        Case 36: GetPrefix = "at4"
        Case 37: GetPrefix = "nav3"
        Case 39: GetPrefix = "ny10"
        Case 40: GetPrefix = "ny11"
        Case 41: GetPrefix = "ny12"
        Case 42: GetPrefix = "po2"
        Case 43: GetPrefix = "sl11"
        Case 45: GetPrefix = "ny13"
        Case 46: GetPrefix = "ny14"
        Case 47: GetPrefix = "above5"
        Case 48: GetPrefix = "above6"
        Case 51: GetPrefix = "ams3"
        Case 52: GetPrefix = "ams4"
        Case 53: GetPrefix = "ams5"
        Case 54: GetPrefix = "me10"
        Case 55: GetPrefix = "ch1"
        Case 56: GetPrefix = "nl10"
        Case 57: GetPrefix = "ch3"
        Case 58: GetPrefix = "ch4"
        Case 59: GetPrefix = "ch5"
        Case 61: GetPrefix = "se1"
        Case 62: GetPrefix = "se2"
        Case 63: GetPrefix = "se3"
        Case 64: GetPrefix = "se4"
        Case 65: GetPrefix = "se5"
        Case 66: GetPrefix = "se6"
        Case 67: GetPrefix = "jolt10"
        Case 68: GetPrefix = "jolt11"
        Case 69: GetPrefix = "jolt12"
        Case 70: GetPrefix = "po6"
        Case 71: GetPrefix = "mn7"
        Case 72: GetPrefix = "nav9"
        Case 75: GetPrefix = "sl4"
        Case 76: GetPrefix = "sl5"
        Case 77: GetPrefix = "sl6"
        Case 78: GetPrefix = "sl7"
        Case 79: GetPrefix = "sl8"
        Case 80: GetPrefix = "world80"
        Case 82: GetPrefix = "world82"
        Case 83: GetPrefix = "world83"
        Case 84: GetPrefix = "world84"
        Case 85: GetPrefix = "ny1"
        Case 86: GetPrefix = "ny2"
        Case 87: GetPrefix = "cc16"
        Case 88: GetPrefix = "ny5"
        Case 89: GetPrefix = "ny6"
        Case 90: GetPrefix = "ny7"
        Case 91: GetPrefix = "ny8"
        Case 92: GetPrefix = "world92"
        Case 93: GetPrefix = "mi1"
        Case 94: GetPrefix = "mi2"
        Case 95: GetPrefix = "mi3"
        Case 96: GetPrefix = "mi4"
        Case 97: GetPrefix = "mi5"
        Case 98: GetPrefix = "mi6"
        Case 99: GetPrefix = "mi7"
        Case 100: GetPrefix = "ul3"
        Case 102: GetPrefix = "at8"
        Case 103: GetPrefix = "at9"
        Case 104: GetPrefix = "at10"
        Case 105: GetPrefix = "mn8"
        Case 106: GetPrefix = "mn9"
        Case 108: GetPrefix = "au2"
        Case 109: GetPrefix = "au3"
        Case 110: GetPrefix = "au4"
        Case 111: GetPrefix = "au5"
        Case 112: GetPrefix = "au6"
        Case 113: GetPrefix = "nav4"
        Case 114: GetPrefix = "nav5"
        Case 115: GetPrefix = "nav6"
        Case 116: GetPrefix = "nav8"
        Case 117: GetPrefix = "swe1"
        Case 118: GetPrefix = "swe2"
        Case 123: GetPrefix = "swe7"
        Case 124: GetPrefix = "swe8"
        Case 125: GetPrefix = "jlv9"
        Case 126: GetPrefix = "jlv2"
        Case 127: GetPrefix = "jlv3"
        Case 128: GetPrefix = "jlv4"
        Case 129: GetPrefix = "jlv5"
        Case 130: GetPrefix = "jlv6"
        Case 131: GetPrefix = "jlv7"
        Case 132: GetPrefix = "jlv8"
        Case 133: GetPrefix = "hel1"
        Case 134: GetPrefix = "hel2"
        Case 136: GetPrefix = "hel4"
        Case 137: GetPrefix = "hel5"
        Case 138: GetPrefix = "hel6"
        Case 141: GetPrefix = "ams7"
        Case 142: GetPrefix = "me2"
        Case 144: GetPrefix = "me4"
        Case 145: GetPrefix = "jlv18"
        Case 151: GetPrefix = "hel9"
        Case 152: GetPrefix = "jlv10"
        Case 153: GetPrefix = "jlv11"
        Case 154: GetPrefix = "jlv12"
        Case 155: GetPrefix = "jlv13"
        Case 157: GetPrefix = "jlv15"
        Case 158: GetPrefix = "jlv16"
        Case 159: GetPrefix = "jlv17"
    End Select
End Function
 
Function GetSType(ByVal Server As Integer) As String
    Select Case Server
        Case 1: GetPrefix = "Free"
        Case 2: GetPrefix = "Members"
        Case 3: GetPrefix = "Free"
        Case 4: GetPrefix = "Free"
        Case 5: GetPrefix = "Free"
        Case 6: GetPrefix = "Members"
        Case 7: GetPrefix = "Free"
        Case 8: GetPrefix = "Free"
        Case 9: GetPrefix = "Members"
        Case 10: GetPrefix = "Free"
        Case 11: GetPrefix = "Free"
        Case 12: GetPrefix = "Members"
        Case 13: GetPrefix = "Free"
        Case 14: GetPrefix = "Free"
        Case 15: GetPrefix = "Free"
        Case 16: GetPrefix = "Free"
        Case 17: GetPrefix = "Free"
        Case 18: GetPrefix = "Members"
        Case 19: GetPrefix = "Free"
        Case 20: GetPrefix = "Free"
        Case 21: GetPrefix = "Free"
        Case 22: GetPrefix = "Members"
        Case 23: GetPrefix = "Members"
        Case 24: GetPrefix = "Members"
        Case 26: GetPrefix = "Members"
        Case 27: GetPrefix = "Members"
        Case 28: GetPrefix = "Members"
        Case 29: GetPrefix = "Free"
        Case 30: GetPrefix = "Free"
        Case 31: GetPrefix = "Members"
        Case 32: GetPrefix = "Free"
        Case 33: GetPrefix = "Free"
        Case 34: GetPrefix = "Free"
        Case 35: GetPrefix = "Free"
        Case 36: GetPrefix = "Members"
        Case 37: GetPrefix = "Free"
        Case 39: GetPrefix = "Members"
        Case 40: GetPrefix = "Free"
        Case 41: GetPrefix = "Free"
        Case 42: GetPrefix = "Members"
        Case 43: GetPrefix = "Free"
        Case 45: GetPrefix = "Members"
        Case 46: GetPrefix = "Members"
        Case 47: GetPrefix = "Free"
        Case 48: GetPrefix = "Members"
        Case 51: GetPrefix = "Free"
        Case 52: GetPrefix = "Free"
        Case 53: GetPrefix = "Members"
        Case 54: GetPrefix = "Members"
        Case 55: GetPrefix = "Free"
        Case 56: GetPrefix = "Members"
        Case 57: GetPrefix = "Free"
        Case 58: GetPrefix = "Members"
        Case 59: GetPrefix = "Members"
        Case 61: GetPrefix = "Free"
        Case 62: GetPrefix = "Free"
        Case 63: GetPrefix = "Free"
        Case 64: GetPrefix = "Members"
        Case 65: GetPrefix = "Members"
        Case 66: GetPrefix = "Members"
        Case 67: GetPrefix = "Free"
        Case 68: GetPrefix = "Free"
        Case 69: GetPrefix = "Members"
        Case 70: GetPrefix = "Members"
        Case 71: GetPrefix = "Members"
        Case 72: GetPrefix = "Free"
        Case 75: GetPrefix = "Free"
        Case 76: GetPrefix = "Members"
        Case 77: GetPrefix = "Members"
        Case 78: GetPrefix = "Members"
        Case 79: GetPrefix = "Members"
        Case 80: GetPrefix = "Free"
        Case 82: GetPrefix = "Members"
        Case 83: GetPrefix = "Members"
        Case 84: GetPrefix = "Members"
        Case 85: GetPrefix = "Free"
        Case 86: GetPrefix = "Free"
        Case 87: GetPrefix = "Free"
        Case 88: GetPrefix = "Members"
        Case 89: GetPrefix = "Members"
        Case 90: GetPrefix = "Free"
        Case 91: GetPrefix = "Members"
        Case 92: GetPrefix = "Members"
        Case 93: GetPrefix = "Free"
        Case 94: GetPrefix = "Free"
        Case 95: GetPrefix = "Free"
        Case 96: GetPrefix = "Free"
        Case 97: GetPrefix = "Members"
        Case 98: GetPrefix = "Members"
        Case 99: GetPrefix = "Members"
        Case 100: GetPrefix = "Members"
        Case 102: GetPrefix = "Free"
        Case 103: GetPrefix = "Members"
        Case 104: GetPrefix = "Members"
        Case 105: GetPrefix = "Free"
        Case 106: GetPrefix = "Free"
        Case 108: GetPrefix = "Free"
        Case 109: GetPrefix = "Free"
        Case 110: GetPrefix = "Members"
        Case 111: GetPrefix = "Members"
        Case 112: GetPrefix = "Members"
        Case 113: GetPrefix = "Free"
        Case 114: GetPrefix = "Members"
        Case 115: GetPrefix = "Members"
        Case 116: GetPrefix = "Members"
        Case 117: GetPrefix = "Free"
        Case 118: GetPrefix = "Free"
        Case 123: GetPrefix = "Free"
        Case 124: GetPrefix = "Members"
        Case 125: GetPrefix = "Free"
        Case 126: GetPrefix = "Free"
        Case 127: GetPrefix = "Free"
        Case 128: GetPrefix = "Free"
        Case 129: GetPrefix = "Members"
        Case 130: GetPrefix = "Members"
        Case 131: GetPrefix = "Members"
        Case 132: GetPrefix = "Members"
        Case 133: GetPrefix = "Free"
        Case 134: GetPrefix = "Free"
        Case 136: GetPrefix = "Free"
        Case 137: GetPrefix = "Members"
        Case 138: GetPrefix = "Members"
        Case 141: GetPrefix = "Free"
        Case 142: GetPrefix = "Free"
        Case 144: GetPrefix = "Members"
        Case 145: GetPrefix = "Members"
        Case 151: GetPrefix = "Members"
        Case 152: GetPrefix = "Free"
        Case 153: GetPrefix = "Free"
        Case 154: GetPrefix = "Free"
        Case 155: GetPrefix = "Free"
        Case 157: GetPrefix = "Members"
        Case 158: GetPrefix = "Members"
        Case 159: GetPrefix = "Members"
    End Select
End Function
 
Function GetFlag(ByVal Server As Integer) As String
    Select Case Server
        Case 1: GetFlag = "usflag"
        Case 2: GetFlag = "usflag"
        Case 3: GetFlag = "usflag"
        Case 4: GetFlag = "usflag"
        Case 5: GetFlag = "usflag"
        Case 6: GetFlag = "usflag"
        Case 7: GetFlag = "usflag"
        Case 8: GetFlag = "usflag"
        Case 9: GetFlag = "usflag"
        Case 10: GetFlag = "nlflag"
        Case 11: GetFlag = "ukflag"
        Case 12: GetFlag = "ukflag"
        Case 13: GetFlag = "usflag"
        Case 14: GetFlag = "usflag"
        Case 15: GetFlag = "ukflag"
        Case 16: GetFlag = "ukflag"
        Case 17: GetFlag = "caflag"
        Case 18: GetFlag = "caflag"
        Case 19: GetFlag = "usflag"
        Case 20: GetFlag = "usflag"
        Case 21: GetFlag = "usflag"
        Case 22: GetFlag = "usflag"
        Case 23: GetFlag = "ukflag"
        Case 24: GetFlag = "ukflag"
        Case 26: GetFlag = "usflag"
        Case 27: GetFlag = "usflag"
        Case 28: GetFlag = "usflag"
        Case 29: GetFlag = "usflag"
        Case 30: GetFlag = "usflag"
        Case 31: GetFlag = "usflag"
        Case 32: GetFlag = "usflag"
        Case 33: GetFlag = "usflag"
        Case 34: GetFlag = "usflag"
        Case 35: GetFlag = "usflag"
        Case 36: GetFlag = "usflag"
        Case 37: GetFlag = "caflag"
        Case 39: GetFlag = "usflag"
        Case 40: GetFlag = "usflag"
        Case 41: GetFlag = "usflag"
        Case 42: GetFlag = "usflag"
        Case 43: GetFlag = "usflag"
        Case 45: GetFlag = "usflag"
        Case 46: GetFlag = "usflag"
        Case 47: GetFlag = "usflag"
        Case 48: GetFlag = "usflag"
        Case 51: GetFlag = "nlflag"
        Case 52: GetFlag = "nlflag"
        Case 53: GetFlag = "nlflag"
        Case 54: GetFlag = "nlflag"
        Case 55: GetFlag = "usflag"
        Case 56: GetFlag = "usflag"
        Case 57: GetFlag = "usflag"
        Case 58: GetFlag = "usflag"
        Case 59: GetFlag = "usflag"
        Case 61: GetFlag = "usflag"
        Case 62: GetFlag = "usflag"
        Case 63: GetFlag = "usflag"
        Case 64: GetFlag = "usflag"
        Case 65: GetFlag = "usflag"
        Case 66: GetFlag = "usflag"
        Case 67: GetFlag = "ukflag"
        Case 68: GetFlag = "ukflag"
        Case 69: GetFlag = "ukflag"
        Case 70: GetFlag = "usflag"
        Case 71: GetFlag = "ukflag"
        Case 72: GetFlag = "caflag"
        Case 75: GetFlag = "usflag"
        Case 76: GetFlag = "usflag"
        Case 77: GetFlag = "usflag"
        Case 78: GetFlag = "usflag"
        Case 79: GetFlag = "usflag"
        Case 80: GetFlag = "ukflag"
        Case 82: GetFlag = "ukflag"
        Case 83: GetFlag = "ukflag"
        Case 84: GetFlag = "ukflag"
        Case 85: GetFlag = "usflag"
        Case 86: GetFlag = "usflag"
        Case 87: GetFlag = "usflag"
        Case 88: GetFlag = "usflag"
        Case 89: GetFlag = "usflag"
        Case 90: GetFlag = "usflag"
        Case 91: GetFlag = "usflag"
        Case 92: GetFlag = "ukflag"
        Case 93: GetFlag = "usflag"
        Case 94: GetFlag = "usflag"
        Case 95: GetFlag = "usflag"
        Case 96: GetFlag = "usflag"
        Case 97: GetFlag = "usflag"
        Case 98: GetFlag = "usflag"
        Case 99: GetFlag = "usflag"
        Case 100: GetFlag = "usflag"
        Case 102: GetFlag = "usflag"
        Case 103: GetFlag = "usflag"
        Case 104: GetFlag = "usflag"
        Case 105: GetFlag = "ukflag"
        Case 106: GetFlag = "ukflag"
        Case 108: GetFlag = "auflag"
        Case 109: GetFlag = "auflag"
        Case 110: GetFlag = "auflag"
        Case 111: GetFlag = "auflag"
        Case 112: GetFlag = "auflag"
        Case 113: GetFlag = "caflag"
        Case 114: GetFlag = "caflag"
        Case 115: GetFlag = "caflag"
        Case 116: GetFlag = "caflag"
        Case 117: GetFlag = "sweflag"
        Case 118: GetFlag = "sweflag"
        Case 123: GetFlag = "sweflag"
        Case 124: GetFlag = "sweflag"
        Case 125: GetFlag = "caflag"
        Case 126: GetFlag = "caflag"
        Case 127: GetFlag = "caflag"
        Case 128: GetFlag = "caflag"
        Case 129: GetFlag = "caflag"
        Case 130: GetFlag = "caflag"
        Case 131: GetFlag = "caflag"
        Case 132: GetFlag = "caflag"
        Case 133: GetFlag = "finflag"
        Case 134: GetFlag = "finflag"
        Case 136: GetFlag = "finflag"
        Case 137: GetFlag = "finflag"
        Case 138: GetFlag = "finflag"
        Case 141: GetFlag = "nlflag"
        Case 142: GetFlag = "nlflag"
        Case 144: GetFlag = "nlflag"
        Case 145: GetFlag = "caflag"
        Case 151: GetFlag = "finflag"
        Case 152: GetFlag = "caflag"
        Case 153: GetFlag = "caflag"
        Case 154: GetFlag = "caflag"
        Case 155: GetFlag = "caflag"
        Case 157: GetFlag = "caflag"
        Case 158: GetFlag = "caflag"
        Case 159: GetFlag = "caflag"
    End Select
End Function
 
Function GetLocation(ByVal Server As Integer) As String
    Select Case Server
        Case 1: GetLocation = "US West 1"
        Case 2: GetLocation = "US West 1"
        Case 3: GetLocation = "US Central 2"
        Case 4: GetLocation = "US West 2"
        Case 5: GetLocation = "US West 2"
        Case 6: GetLocation = "US Central 2"
        Case 7: GetLocation = "US West 3"
        Case 8: GetLocation = "US West 3"
        Case 9: GetLocation = "US West 3"
        Case 10: GetLocation = "Netherlands 2"
        Case 11: GetLocation = "UK 1"
        Case 12: GetLocation = "UK 2"
        Case 13: GetLocation = "US West 5"
        Case 14: GetLocation = "US West 5"
        Case 15: GetLocation = "UK 1"
        Case 16: GetLocation = "UK 1"
        Case 17: GetLocation = "Canada East"
        Case 18: GetLocation = "Canada East"
        Case 19: GetLocation = "US West 5"
        Case 20: GetLocation = "US West 5"
        Case 21: GetLocation = "US West 5"
        Case 22: GetLocation = "US West 5"
        Case 23: GetLocation = "UK 1"
        Case 24: GetLocation = "UK 1"
        Case 26: GetLocation = "US West 1"
        Case 27: GetLocation = "US West 5"
        Case 28: GetLocation = "US West 5"
        Case 29: GetLocation = "US West 1"
        Case 30: GetLocation = "US West 2"
        Case 31: GetLocation = "US West 2"
        Case 32: GetLocation = "US West 1"
        Case 33: GetLocation = "US East 2"
        Case 34: GetLocation = "US East 2"
        Case 35: GetLocation = "US East 2"
        Case 36: GetLocation = "US East 2"
        Case 37: GetLocation = "Canada East"
        Case 39: GetLocation = "US East 1"
        Case 40: GetLocation = "US East 1"
        Case 41: GetLocation = "US East 1"
        Case 42: GetLocation = "US West 2"
        Case 43: GetLocation = "US Central 2"
        Case 45: GetLocation = "US East 1"
        Case 46: GetLocation = "US East 1"
        Case 47: GetLocation = "US West 3"
        Case 48: GetLocation = "US West 3"
        Case 51: GetLocation = "Netherlands 1"
        Case 52: GetLocation = "Netherlands 1"
        Case 53: GetLocation = "Netherlands 1"
        Case 54: GetLocation = "Netherlands 2"
        Case 55: GetLocation = "US Central 1"
        Case 56: GetLocation = "US West 5"
        Case 57: GetLocation = "US Central 1"
        Case 58: GetLocation = "US Central 1"
        Case 59: GetLocation = "US Central 1"
        Case 61: GetLocation = "US West 4"
        Case 62: GetLocation = "US West 4"
        Case 63: GetLocation = "US West 4"
        Case 64: GetLocation = "US West 4"
        Case 65: GetLocation = "US West 4"
        Case 66: GetLocation = "US West 4"
        Case 67: GetLocation = "UK 2"
        Case 68: GetLocation = "UK 2"
        Case 69: GetLocation = "UK 2"
        Case 70: GetLocation = "US West 2"
        Case 71: GetLocation = "UK 1"
        Case 72: GetLocation = "Canada East"
        Case 75: GetLocation = "US Central 2"
        Case 76: GetLocation = "US Central 2"
        Case 77: GetLocation = "US Central 2"
        Case 78: GetLocation = "US Central 2"
        Case 79: GetLocation = "US Central 2"
        Case 80: GetLocation = "UK 1"
        Case 82: GetLocation = "UK 1"
        Case 83: GetLocation = "UK 1"
        Case 84: GetLocation = "UK 1"
        Case 85: GetLocation = "US East 1"
        Case 86: GetLocation = "US East 1"
        Case 87: GetLocation = "US Central 2"
        Case 88: GetLocation = "US East 1"
        Case 89: GetLocation = "US East 1"
        Case 90: GetLocation = "US East 1"
        Case 91: GetLocation = "US East 1"
        Case 92: GetLocation = "UK 1"
        Case 93: GetLocation = "US East 3"
        Case 94: GetLocation = "US East 3"
        Case 95: GetLocation = "US East 3"
        Case 96: GetLocation = "US East 3"
        Case 97: GetLocation = "US East 3"
        Case 98: GetLocation = "US East 3"
        Case 99: GetLocation = "US East 3"
        Case 100: GetLocation = "US West 1"
        Case 102: GetLocation = "US East 2"
        Case 103: GetLocation = "US East 2"
        Case 104: GetLocation = "US East 2"
        Case 105: GetLocation = "UK 1"
        Case 106: GetLocation = "UK 1"
        Case 108: GetLocation = "Australia"
        Case 109: GetLocation = "Australia"
        Case 110: GetLocation = "Australia"
        Case 111: GetLocation = "Australia"
        Case 112: GetLocation = "Australia"
        Case 113: GetLocation = "Canada East"
        Case 114: GetLocation = "Canada East"
        Case 115: GetLocation = "Canada East"
        Case 116: GetLocation = "Canada East"
        Case 117: GetLocation = "Sweden"
        Case 118: GetLocation = "Sweden"
        Case 123: GetLocation = "Sweden"
        Case 124: GetLocation = "Sweden"
        Case 125: GetLocation = "Canada West"
        Case 126: GetLocation = "Canada West"
        Case 127: GetLocation = "Canada West"
        Case 128: GetLocation = "Canada West"
        Case 129: GetLocation = "Canada West"
        Case 130: GetLocation = "Canada West"
        Case 131: GetLocation = "Canada West"
        Case 132: GetLocation = "Canada West"
        Case 133: GetLocation = "Finland"
        Case 134: GetLocation = "Finland"
        Case 136: GetLocation = "Finland"
        Case 137: GetLocation = "Finland"
        Case 138: GetLocation = "Finland"
        Case 141: GetLocation = "Netherlands 1"
        Case 142: GetLocation = "Netherlands 2"
        Case 144: GetLocation = "Netherlands 2"
        Case 145: GetLocation = "Canada West"
        Case 151: GetLocation = "Finland"
        Case 152: GetLocation = "Canada West"
        Case 153: GetLocation = "Canada West"
        Case 154: GetLocation = "Canada West"
        Case 155: GetLocation = "Canada West"
        Case 157: GetLocation = "Canada West"
        Case 158: GetLocation = "Canada West"
        Case 159: GetLocation = "Canada West"
    End Select
End Function

SORRY ABOUT LONG POST

 

Epic code is epic.

Honestly, learn how to parse external files.

 

Here is a rather sloppy way to parse a runescape page to get the world info.

Code:

Public Type WorldInfo
    Prefix As String
    Theme As String
    Type As String
    Location As String
    Flag As String
    People As String
    Status As String
End Type

Public Function GetWorldInfo(ByVal World As Integer, HTML As String) As WorldInfo
    Dim pos(9) As Long, SearchW(1) As Integer
    pos(0) = InStr(1, HTML, "e(" & World & ",")
    If pos(0) = 0 Then GetWorldInfo.Status = "Nonexistant": Exit Function
    pos(7) = InStr(pos(0), HTML, ",") + 1
    pos(8) = InStr(pos(7), HTML, ",")
    pos(9) = InStr(pos(8) + 1, HTML, ",")
    If Mid(HTML, pos(8) + 1, 1) = 1 Then
        GetWorldInfo.Status = "Offline"
    Else
        GetWorldInfo.Status = "Online"
    End If
    GetWorldInfo.Type = Mid(HTML, pos(7), pos(8) - pos(7))
    pos(1) = InStr(pos(0), HTML, """,") + 3
    pos(2) = InStr(pos(1), HTML, ",""") + 2
    pos(3) = InStr(pos(1), HTML, """,")
    pos(4) = InStr(pos(2) + 1, HTML, ",")
    pos(5) = InStr(pos(3) + 1, HTML, ",")
    GetWorldInfo.Location = Mid(HTML, InStr(pos(4) + 1, HTML, ",") + 1, InStr(pos(4) + 1, HTML, ")") - InStr(pos(4) + 1, HTML, ",") - 1)
    pos(6) = InStr(1, HTML, "l==" & GetWorldInfo.Location & "?""")
    pos(7) = InStr(pos(3) + 2, HTML, ",")
    GetWorldInfo.Theme = Mid(HTML, InStr(pos(0), HTML, ",""") + 2, (InStr(pos(0), HTML, """,") - InStr(pos(0), HTML, ",""")) - 2)
    GetWorldInfo.Prefix = Mid(HTML, pos(2), pos(3) - pos(2))
    GetWorldInfo.Type = IIf(GetWorldInfo.Type = 0, "Free", "Member")
    GetWorldInfo.Location = Mid(HTML, InStr(pos(6), HTML, ">") + 1, InStr(InStr(pos(6), HTML, ">"), HTML, """") - InStr(pos(6), HTML, ">") - 1)
    GetWorldInfo.Flag = Mid(HTML, InStr(pos(6), HTML, "?""") + 2, InStr(InStr(pos(6), HTML, ">"), HTML, """") - InStr(pos(6), HTML, "?""") - Len(GetWorldInfo.Location) - 3) & "flag"
    GetWorldInfo.People = Mid(HTML, pos(3) + 2, pos(7) - pos(3) - 2)
End Function

 

Im guessing you dont want to help me... =/

 

Change this peice of code:

Code:

Private Sub Combo1_load()
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"               It continues till world 159
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
End Sub

to:

Code:

private sub Form_Load()
    dim i as integer
    for i = 1 to 159
        combo1.additem i
    next i
end sub

 

Your problem is that combo boxes don't have a load property. You're going to want to do what Covey said, or take your existing code and add it into your Form_Load.

 

Now i have a new problem...

I press play, i click a world it wont load.

1st I can'y change the name of form1 to form

2nd This is my code now =]

Code:

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If URL = "http://www.runescape.com/" Then Cancel = True
End Sub

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
StealRS2 Me
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 159
        Combo1.AddItem i
    Next i
End Sub

Private Sub Combo1_Change()
WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"
Form.Caption = worldnum & " - " & "My Client"
End Sub

STEALRS module is fine..
And world.bas is fine

Now how can i make it load a world up!

 

Ok, fisrt off change this part to this:

Code:

Private Sub Combo1_Change()
WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"
Form.Caption = worldnum & " - " & "My Client"
End Sub

to this:

Code:

Private Sub Combo1_Click()
WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"
Form1.Caption = Combo1.Text & " - " & "My Client"
End Sub

And you don't need to change the name of the Form to "Form". The Form_Load Event is just a way of showing VB that you want that to happen before the current application loads.

 

I did that and now I get an debug error when i try to go to a world...
this is what i have on my client..

Form1 named form1
webbrowser1 named webbrowser
comb box named combo1

And thats it...

Here is the code

Code:

Private Sub WebBrowser_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
On Error Resume Next
If URL = "http://www.runescape.com/" Then Cancel = True
End Sub

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
StealRS2 Me
End Sub

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 159
        Combo1.AddItem i
    Next i
End Sub
Private Sub Combo1_Click()
WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"
Form1.Caption = Combo1.Text & " - " & "My Client"
End Sub

STEAL RS IS FINE
WORLDS.BAS IS FINE


EDIT: I think i found the problem... it says quality.text, but i dont have any button named quality

 

Only Problem in using coveys method is that it has the world 156 in the combo box, which isnt available and would cause more errors when users or your self click it... you have to program it to remove the worlds that aint available from 1 to 159, or find another way around it.

 

Ok these are the worlds that arent their
world 49 146 140 139 73 60 120 122 147 156 150 148 135
K i litteraly did everything to try and make it better, I swear to you that I tried at least 6 different things to make it work, none worked.. can you guys please explain to me what I have to do to go around the world thing.. I promise i tried everything Look at what i tried...

Code:

    Dim i As Integer
    For i = 1 To 48
    For a = 50 To 59
    For s = 60 To 72
    For d = 74 To 119
    For f = 121 To 121
    For g = 123 To 134
    For h = 136 To 138
    For j = 141 To 145
    For k = 149 To 149
    For l = 151 To 155
    For m = 157 To 159
        Combo1.AddItem i
        Combo1.AddItem a
        Combo1.AddItem s
        Combo1.AddItem d
        Combo1.AddItem f
        Combo1.AddItem g
        Combo1.AddItem h
        Combo1.AddItem j
        Combo1.AddItem k
        Combo1.AddItem l

Yes i even resorted to that, I promise to you thats not the only thing i did though.. i just got desperate and started to do random things it hought would work

 

Hmm would seem a little better only prob is, its all over the place...
Umm, i am sure there is an easier way, i am testing now to figure a way out, ill get back to you shortly...

-EDIT-
Also your coding is incorrect.. Your Missing the "Next" 's
Also to make it easier on your self just use the one interger

Code:

Dim i As Integer

    For i = 1 To 48
        Combo1.AddItem i
    Next i

    For i = 50 To 59
        Combo1.Additem i
    Next i

    For i = 60 To 72
        Combo1.Additem i
    Next i

    For i = 74 To 119
        Combo1.Additem i
    Next i

    For i = 121 To 121
        Combo1.Additem i
    Next i

    For i = 123 To 134
        Combo1.Additem i
    Next i

    For i = 136 To 138
        Combo1.Additem i
    Next i

    For i = 141 To 145
        Combo1.Additem i
    Next i

    For i = 149 To 149
        Combo1.Additem i
    Next i

    For i = 151 To 155
        Combo1.Additem i
    Next i

    For i = 157 To 159
        Combo1.Additem i
    Next i

Only Problem is it still looks messy...

-EDIT 2-
Prob Turn it into a sub... wont make it easier, just make it easier to read at the start up

For the Sub

Code:

Sub LoadCmb()
Dim i As Integer

    For i = 1 To 48
        Combo1.AddItem i
    Next i

    For i = 50 To 59
        Combo1.AddItem i
    Next i

    For i = 60 To 72
        Combo1.AddItem i
    Next i

    For i = 74 To 119
        Combo1.AddItem i
    Next i

    For i = 121 To 121
        Combo1.AddItem i
    Next i

    For i = 123 To 134
        Combo1.AddItem i
    Next i

    For i = 136 To 138
        Combo1.AddItem i
    Next i

    For i = 141 To 145
        Combo1.AddItem i
    Next i

    For i = 149 To 149
        Combo1.AddItem i
    Next i

    For i = 151 To 155
        Combo1.AddItem i
    Next i

    For i = 157 To 159
        Combo1.AddItem i
    Next i
End Sub

For StartUp of Program:

Code:

Private Sub Form_Load()
Call LoadCmb
End Sub

Lol

 

Use some common sense: -.-

Code:

private sub Form_Load()
    dim i as integer
    for i = 1 to 159
        if isavailable(i) then
            combo1.additem i
        end if
    next i
end sub

private function IsAvailable(byval intNumber as integer) as boolean
    select case intnumber
        case "49", "146", "140", "139", "73", "60", "120", "122", "147", "156", "150", "148", "135"
            isavailable = false
        case else
            isavailable = true
    end select
end function

 

I love you?

NEW PROBLEM!!! ARGHHh!!!

Code:

Private Sub Combo1_Click()
[b]WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"[/b]
Form1.Caption = Combo1.Text & " - " & "DG Switch"
End Sub

Error when i click on a world...

 

^ LOL
Sorry i wasnt exactly sure how to attack that situation.

 

Ok, thats nice, now...
NEW PROBLEM!!! ARGHHh!!!

Code:

Private Sub Combo1_Click()
[b]WebBrowser.Navigate "http://" & GetPrefix(Combo1.Text) & ".runescape.com/lang/en/aff/runescape/game.ws?lowmem=" & quality.Text & "&plugin=0"[/b]
Form1.Caption = Combo1.Text & " - " & "DG Switch"
End Sub

Error when i click on a world...

 

You need to tell us more than kist an error when u click on a word.
Type what the error message says please?

 

So im telling you guys i think it has somehting to do witht he quality.text I dont have antyhign combo box named quality

 

That is your problem. Either make a combo box called quality. or replace it with a 1 or a 0 based on your needs.

 

OMG K NOW LET ME TRY THIS, IF IT WORKS I LOVE YOU!