Public Sub Remote_All()
        Form1.RemoteComboBox.Items.Clear()
        Try
            If InStr(Form1.TreeView1.SelectedNode.Text.ToString, "IPDevices") > _
              0 Then
 
                If Form1.DataGridView1.CurrentRow.Cells("Netsupport") IsNot _
                  Nothing Then
                    If Form1.DataGridView1.CurrentRow.Cells("Netsupport").Value _
                    Like True Then Form1.RemoteComboBox.Items.Add("Netsupport")
                End If
 
 
                    If Form1.RemoteComboBox.Items.Count > 0 Then _
                      Form1.RemoteComboBox.Text = Form1.RemoteComboBox.Items(0)
 
                End If
        Catch ex As Exception
            DebugIt(ex.Message.ToString)
        End Try
    End Sub