Please look at the following code, at the moment it just lets you search one site at a time, id like to somehow have an option usually a checkbox, that lets a user select whether or not they search a single site or all of them with the one keyword:

Code:
Option Explicit
Dim mstrName(1 To 100) As String
Dim mstrSite(1 To 100) As String
Dim mstrAdd(1 To 100) As String

Public Sub cboSite_click()
    txtMask.Text = mstrSite(cboSite.ListIndex + 1)
    txtSep.Text = mstrAdd(cboSite.ListIndex + 1)
End Sub

Public Sub cmdGo_Click()
    Call txtSearch_Change
    DoEvents
    Call OpenInternet(Me, txtAddress.Text, Normal)
End Sub

Public Sub OpenInternet(Parent As Form, URL As String, WindowStyle As T_WindowStyle)
    ShellExecute Parent.hwnd, "Open", URL, "", "", WindowStyle
End Sub

Private Sub Command_Click()
    Unload Me
    frmEdit.Show
End Sub

Private Sub Form_Load()
    Me.Caption = "Simple Search - Build " & App.Major & "." & Format(App.Minor, "00") & Format(App.Revision, "00")
    'Stay on Top
    SetWindowPos hwnd, conHwndTopmost, 100, 100, 505, 72, conSwpNoActivate Or conSwpShowWindow
    'Set Sites
    Call proSites1
    'Set Window Position
    Dim xTop, yLeft As Integer
    xTop = GetINI("Window Position", "Top")
    yLeft = GetINI("Window Position", "Left")
    If xTop > (Screen.Height - Me.Height - 500) Then
        Me.Top = Screen.Height - Me.Height - 500
    Else
        Me.Top = xTop
    End If
    If yLeft > (Screen.Width - Me.Width) Then
        Me.Left = Screen.Width - Me.Width
    Else
        Me.Left = yLeft
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetINI "Window Position", "Top", Me.Top
    SetINI "Window Position", "Left", Me.Left
End Sub

Public Sub proSites1()
    cboSite.Clear
    Dim intFree, X As Integer
    X = 1
    intFree = FreeFile
    Open App.Path & "\Simple.nfv" For Input As #intFree
        Do Until EOF(intFree)
            Input #intFree, mstrName(X), mstrSite(X), mstrAdd(X)
            X = X + 1
        Loop
    Close
    For X = 1 To UBound(mstrName)
        If mstrName(X) <> "" Then
            cboSite.AddItem (Format(X, "00") & " - " & mstrName(X))
        End If
    Next X
    
    cboSite.ListIndex = 0
End Sub

Private Sub OsenXPButton1_Click()
  Call txtSearch_Change
    DoEvents
    Call OpenInternet(Me, txtAddress.Text, Normal)
End Sub

Private Sub OsenXPButton2_Click()
Dialog.Show
End Sub

Private Sub txtSearch_Change()
    Dim I, X As Integer
    Dim strOut, strSite As String
    I = InStr(1, txtMask.Text, "###")
    strOut = Left(txtMask.Text, I - 1)
    strSite = txtSearch.Text
    txtPath.Text = strSite
    X = 1
    Do Until X = 0
        X = InStr(1, txtPath.Text, " ")
        If X <> 0 Then
            txtPath.SelStart = X - 1
            txtPath.SelLength = 1
            txtPath.SelText = txtSep.Text
        End If
    Loop
    strOut = strOut & txtPath.Text
    If Len(txtMask.Text) - I - 2 < 1 Then
        strOut = strOut
    Else
        strOut = strOut & Right(txtMask.Text, Len(txtMask.Text) - I - 2)
    End If
    txtAddress.Text = strOut
End Sub

Private Sub txtSearch_GotFocus()
    txtSearch.SelStart = 0
    txtSearch.SelLength = Len(txtSearch.Text)
End Sub

Private Sub txtSearch_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Call cmdGo_Click
    End If
End Sub
There is about 15 websites in a drop down menu, id prefer to have a little checkbox so if the user chooses to search all 15 sites at once, then they could tick the box, enter the keyword, and search, and 15 windows or tabs etc would open, displaying the result.

Any help please, if I could add anything to the code to make this happen?

Thank you.