can you help its say's (Function 'Start' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.)
Private Function Start() As Object
Dim thr As Integer = TextBox4.Text
Dim Threading As Integer = Nothing
If CheckBox1.Checked = True Then
Threading = thr + 300
Else
Threading = thr
End If
While Not stopp
Try
Try
Dim i As String = Geting("https://i.instagram.com/api/v1/users/search?q=" & TextBox5.Text & "&access_token=" & Guid.NewGuid.ToString.ToUpper & "/")
If i.Contains("""username"": """ & TextBox5.Text & """") Or Nothing Then
intt += 1
Me.Invoke(Sub() TextBox3.Text = intt)
Else
If ChangeUserName(TextBox5.Text) Then
Me.Invoke(Sub() Label1.Text = "username claimed " & TextBox5.Text)
stopp = True
End If
End If
Catch ex2 As Exception
End Try
Thread.Sleep(Threading)
Catch ex As Exception
End Try
End While
End Function