[mark67]

Chodzi o to, że kompilator wyrzuca błąd własnie przy tym zapisie 

Kod:

If (receivedData == "1") Then
           cmd1_BTN.Text = "Text"
       End If

Nie mam pojęcia czemu a podpowiadam mi w ten sposób

Kod:

Dim p As Object = receivedData == "1"
       If p Then
           cmd1_BTN.Text = "Text"
       End If

Po czym dalej wywala bład kompilacji...


A kolejna podpowiedzią jest

Kod:

     Dim p As Object = receivedData == "1"
       NewMethod(p)

   End Sub

   Private Sub NewMethod(p As Object)
       If p Then
           cmd1_BTN.Text = "Text"
       End If
   End Sub