Private LoadingThread As New System.Threading.Thread(AddressOf LoadData)
 
Private Sub LoadData()
  ...
End Sub
 
Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnLoadData.Click
  LoadingThread.Start()
End Sub