Dovrebbe essere

codice:
Dim Thread1 As System.Threading.Thread
e poi

codice:
Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Thread1 = New System.Threading.Thread(AddressOf clicca)
  Thread1.Start()
End Sub