Visual Basic

Module Module1

    Sub Main()
        Dim i As Integer = Foo()
        Console.Write("Enter anything: ")
        Console.ReadLine()
        Console.WriteLine(i)
    End Sub

    Async Function Foo() As Task(Of Integer)
        Console.WriteLine("Do something sync")
        Console.WriteLine("Do something sync")
        Return Await Task.Run(Function() Bar())
    End Function

    Function Bar() As Integer
        Console.WriteLine("Bar Start")
        Threading.Thread.Sleep(2000)
        Console.WriteLine("Bar Stop")
        Return 5
    End Function

End Module

Dim i As Integer = Foo()

Dim i As Integer = Foo().Result

Microsoft.VisualStudio.Tools.Applications.Deployment.AddInAlreadyInstalledException: De aanpassing is niet geïnstalleerd omdat er momenteel een andere versie is geïnstalleerd waarvoor geen upgrade kan worden uitgevoerd vanaf deze locatie. Als u deze versie van de aanpassing wilt installeren, moet u eerst Software gebruiken om het volgende programma te verwijderen: CalPicklist. Installeer vervolgens de nieuwe aanpassing vanaf de volgende locatie: file:///D:/Stack/Visual Studio 2019/Projects/Office/Excel/CalPicklist/bin/Release/CalPicklist.vsto
   bij Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.VerifySolutionCodebaseIsUnchanged(Uri uri, String subscriptionId, Boolean previouslyInstalled)
   bij Microsoft.VisualStudio.Tools.Applications.Deployment.ClickOnceAddInDeploymentManager.InstallAddIn()

    Dim dtRate As New DataTable("dtRate")
    'Add columns to DataTable.
    For Each cell As TableCell In GridView1.HeaderRow.Cells
        dtRate.Columns.Add(cell.Text)
    Next
    'Loop through the GridView and copy rows.
    For Each row As GridViewRow In GridView1.Rows
        dtRate.Rows.Add()
        For i As Integer = 0 To row.Cells.Count - 1
            dtRate.Rows(row.RowIndex)(i) = row.Cells(i).Text
        Next
    Next
    Dim Departments As List(Of String) = (From p In dtRate.AsEnumerable() _
                                   Select p.Field(Of String)("Department")).Distinct().ToList()
    If RateChart.Series.Count() = 1 Then
        RateChart.Series.Remove(RateChart.Series(0))
    End If
    'Loop through the Departments.
    For Each UserDepartment As String In Departments
        'Get the Shown_Period for each Department.
        Dim x As Integer() = (From p In dtRate.AsEnumerable() _
                              Where p.Field(Of String)("Department") = UserDepartment _
                              Order By p.Field(Of Integer)("Shown_Period") _
                              Select p.Field(Of Integer)("Shown_Period")).ToArray()
        'Get the Num_Int of Orders for each Department.
        Dim y As Integer() = (From p In dtRate.AsEnumerable() _
                              Where p.Field(Of String)("Department") = UserDepartment _
                              Order By p.Field(Of Integer)("Shown_Period") _
                              Select p.Field(Of Integer)("Num_Int")).ToArray()
        'Add Series to the Chart.
        RateChart.Series.Add(New Series(UserDepartment))
        RateChart.Series(UserDepartment).IsValueShownAsLabel = True
        RateChart.Series(UserDepartment).BorderWidth = 3
        RateChart.Series(UserDepartment).ChartType = SeriesChartType.Line
        RateChart.Series(UserDepartment).Points.DataBindXY(x, y)
    Next
    RateChart.Legends(0).Enabled = True
    RateChart.Visible = True
    btn_Print.Visible = True
End Sub</<pre lang="vb">

I need some guidance and advice to build a questionnaire system similar to Google forms that include two parts,

the first part is a desktop system with vb.net or c# and separate SQL server database (it must be a desktop system because it will be part of a vb.net old system, The new project will be called from within the main interface of the old project )

and the second part is a web system, and the two systems are linked to one SQL server database through a local network and a local server

the desktop system builds multiple questionnaires forms and each questionnaire is associated with a specific user to answer these questions through the web system via the username that will be assigned to him by the desktop system... Here, I would like to note that each user has a different questionnaire from the other...

The desktop system will also use the answers to build a dashboard has charts and report based on the analysis of the answers

My questions ...

1- What is the best way to design (questionnaire builder) if I want it to work and similar to Google Forms method and user interface of building questions if each user has its own questionnaire that contains an unlimited set of questions, the new question is added through the Add button and each question is specified by the admin It determines the nature of the answer and the answer and contains a tool to choose a specific classification from a group of classifications that are added to the system, and each question contains in addition to the answers a field of notes and evaluation from 1 to 5, and after building this questionnaire for a specific user it is permanently saved and linked with this user and there is a possibility to edit these questions on This questionnaire for the future.

Is the User Control method the best way to build a question-building interface, or is there a better way and how?

2- What are your tips and directions that help me to build a better design for such a system?

Greetings

Hi, I need help looking for the code to send an image via the bot

Helo, acording to this code (In Visual Basic for word):
The code works for me, but it is not what I want...

The problem is: I only wont to select a colored text (example -> A text colored in Red), selecting all the words colored by Red. 
I am very frustrated because I have tried everything but it does not work for me.
My goal is taking that colored text to another word document. The most important colored text i have in the document is colored in blue sky.
Sorry for the writing and thank you for your trouble.


//Replace text color//

    Sub ChangeColorWithReplace()
        Selection.Find.ClearFormatting
        Selection.Find.Font.Color = wdColorRed
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Replacement.Font.Color = -603914241
        With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchByte = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub

Imports System
Imports System.IO
Imports System.IO.Ports
Imports System.Text
Imports System.Threading


Public Class Form1

    
    Dim value As Byte
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    SerialPort1.Encoding = System.Text.Encoding.GetEncoding(1252)
    SerialPort1.Open()

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SerialPort1.Close()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim array(6) As Byte
        array(0) = &H3
        array(1) = &H1
        array(2) = &H1
        array(3) = &HA4
        array(4) = &HA5
        array(5) = &HB2
        SerialPort1.Write(array, 0, array.Length)
        Label1.Text = ""
      
        For i = 0 To 10
            value = SerialPort1.ReadByte()
            Label1.Text += value.ToString("x2") + " "
        Next
    End Sub

03 01 01 A4 A5 B2 00 00 03 00 FC

03 01 01 A4 A5 B2 01 00 03 00 FC

Compile error:
User-defined type no defined

What causes this error?

Player.name = "Player" & +1

Public Class Form1
    Private WithEvents Player As AxAXVLC.AxVLCPlugin2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Player = New AxAXVLC.AxVLCPlugin2
        FlowLayoutPanel1.Controls.Add(Player)
        Player.playlist.add("VideoUrl")
        Player.playlist.play()
        'each click adds a new player but the name is "Player" for all players not like "Player1, Player2..."

    End Sub